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FOREWARD 

This report presents results of work conducted by Boeing Computer Services 
Company under NASA Contract NASS- 20385, "Wind Energy Storage Model Develop- 
ment." This program was conducted under the sponsorship of the Advanced 
Physical Methods Branch, Office of Conservation, ERDA, under the direction of 
Dr. G. C. Chang, and was administered by the NASA-Lewis Research Center Ther- 
mal and Mechanical Storage Section with Mr. L. H. Gordon as Project Manager. 
This report is in three volumes. 


I. Technical Report 

II. Operation Manual 

III. Program Descriptions 


The Boeing Program Manager for this work was R. W. Edsinger, and A. W. Warren 
was the principal investigator. 


For completeness, the summary sections 1.1 and 1.2 of Volume I have been 
repeated in the Operation Manual, Volume II. 
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1.0 INTRODUCTION 


Energy storage systems for the utilization of Intermittent power sources have 
received increased study over the past few years. However, the type and degree 
of storage required for optimal utilization of wind energy and the total costs 
and utility of the resulting wind turbine/generator/storage system have not 
been thoroughly analyzed. The purpose of the SIMWEST (S imul ation Model for 
Wind Energy Storage) program described in this document is to provide a tool 
for performing this needed analysis. It is a tool to aid in the design of 
an optimal wind energy system for a given application and to allow the result- 
ing system to be evaluated and verified through realistic simulation. 

SIMWEST consists of a library of system components and a precompiler program 
which allows these components to be put together in building block form. The 
present library contains components for five types of energy storage systems. 
They are pumped hydro, battery, thermal, flywheel, and pneumatic. The SIMWEST 
program, as described here runs on the UN I VAC 1100 series of computers. 

Other computer programs exist for the simulation of wind systems and vari- 
ous forms of energy storage. However SIMWEST is the only program capable of 
simulating total wind systems containing any one or combination of the above 
types of storage and at the same time having the flexibility and depth required 
to perform thorough and meaningful parameter studies. 

1.1 GENERAL APPROACH 

The structure and much of the software for the SIMWEST program is based on 
a computer program called EASY, whii^h was prevously developed by Boeing Com- 
puter Services, Inc. (BCS) , SIMl^ST consists of two basic programs, and a 
library of system, environmental, and load components. The first program, 
the Model Generation Program, is a precompi ler which generates computer mod- 
els (in FORTRAN) of complex wind energy generator/storage/appj Icat ion systems, 
from user specifications using SIMWEST library components. The second program 
exercises the resulting computer model to perform cost and potential utlliza- 
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tion analysis. It handles input, output, integration of system dynamics, 
and iterates to obtain convergence of variables involved in implicit loops. 
The combination of these two programs provides a powerful tool for analyzing 
alternate storage system designs. 

Figure 1-1 shows the general organization of the SlMV^tST program. In addi- 
tion to the two programs described above, there is a third which performs 
file maintenance. It is used to incorporate user supplied data for new sub- 
system models. Although the program is shown to be made up of a number of 
subprograms, it can be executed as a single batch program by supplying the 
model description control cards and the control cards describing the desired 
analysis to be performed and the desired tabular and/or plotted output. 

1.2 SlMVeST LIBRARY 

1.2.1 Overvi ew 

The SIMWEST library is listed in Table 1-1. It is made up of five types of 
components: physical, environmental, load, logical, and utility. 

Physical components encompass such things as motors, generators, transmis- 
sions, flywheels, etc. These components model actual physical hardware which 
might be used in a wind energy system. The selection of the particular SIM- 
WEST library set of physical components was based on the requirement that 
it be capable of modeling five types of energy storage systems mentioned 
previously: thermal, flywheel, battery, pumped hydro and pneumatic. 

The degree of detail in the component models is based upon two design cri- 
teria, First, all models should contain sufficient detail to simulate all 
ph7sical characteristics and constraints having significant impact' on the 
systems overall cost effectiveness. Second, the models should be designed 
to minimize computer time and required user specification. It is assumed 
that a typical SIMWEST simulation might cover a time span of one year. Thus 
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TABLE 1-1 SIMWEST LIBRARY COMPONENTS 


PHYS I CAL ENVIRONMENTAL 


WIND TURBINE 

wr 

WIND 

WD 

TURB 1 NE/GENERATOR 

WP 

AMBIENT TEMP 

TP 

AC INDUCTION GEN. 

GE 



FIXED RATIO TRANSMISSION 

GR 

LOAD 


RECTIFIER 

RE 

ELECTRICAL LOAD 

LO 

BATTERY 

BA 

THERMAL LOAD 

TL 

INVERTER 

IV 



ADMITTANCE 

AD 

LOGIC 


COMPRESSOR (PNEUMATIC) 

CO 

POWER DIVIDER 

PD 

ADIABATIC HEAT EXCHANGER 


POWER ACCUMULATOR 

PA 

(INPUT CYCLE) 

HX 

PRIORITY INTERRUPT 

PI 

ADIABATIC HEAT EXCHANGER 


SWITCH 

SW,SX,SY,SZ 

(OUTPUT CYCLE) 

HY 



PNEUMATIC STORAGE VESSEL 

CS 

UTILITY 


BURNER 

BN 

COST MONITOR 

CM 

TURBINE (PNEUMATIC) 

TU 

SATURATION 

SA 

INDUCTION MOTOR 

MO 

RANDOM NUMBER GENERATOR 

RN 

VARIABLE RATIO TRANSMISSION 

TR 

TEST FUNCTIONS 

AF 

FLWHEEL/CLUTCH 

FL 

TABLE LOOKUP 

FU,FV 

PUMP (HYDRO) 

PU 

TRANSFER FUNCTION 

IT, LA,LL,TF 

TURBINE (HYDRO) 

HT 

ARITHMETIC ELEMENT 

MA,MB,MC 

hydro STORAGE 

HS 

HISTOGRAM 

HG 

THERMAL STORAGE 

TS 

TAPE READ 

TA 

UTILITY 

UT 

TIME CONVERSION 

Tl 
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from a computer run time and economic impact point of view a simulation step 
size of between 15 minutes and one hour seemed reasonable. 

As a result of the above two design criteria many physical components, such 
as the electrical components, were modeled mainly in terms of power flow 
and steady state response. This tack of detail i s consistent wi th the 15 
minute time step and with the concept that the important transients are on 
the time scale of demand curves or weather patterns, i.e. an hour or more, 
rather than on the time scale of electric motor transients of a few seconds. 
If short electric transients were to be modeled, much detail would need to 
be added to the component models which would greatly increase the user's 
task of specifying the model. Further, the simulation time step would have 
to be reduced to a fraction of a second so the model would not only be much 
larger but computer runs would be much costlier. 

Environmental components are those which simulate environmental conditions. 

In the present SIMWEST library these conditions are wind speed and ambient 
temperature. These variables are generally used as inputs to physical com- 
ponents. Environmental component output can either be computed from measure- 
ment data provided by the user on a data tape, or from randomly generated 
data, based on user furnished profiles. 

The load components in the SiNiWEST library are used to simulate various types 
of power demand. They also monitor how well the system meets the simulated 
demand and compute the value of the energy delivered by the wind energy sys- 
tem to the load. Like the environmental components these components may be 
computed from actual measurement data or from randomly generated data based 
on user furnished load profiles. 

The library's logical components are the power dividers, power accumulators, 
switches and priority interrupts. Although physical hardware could generally 
be built to serve the function of the logical components, they are not meant 
to represent any particular piece of existing hardware. Instead, they are 
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IdeaUzad components that allow the user the flexibility of tijodellng the 
wide variety of control logic which a wind energy storage system would re- 
quire. In practice, the control function might be performed by a control 
room operator using a predefined control strategy or by use of a minicom- 
puter. 

Finally, the utility components Include such things as the tape read, the 
histogram and the cost monitor. These components serve only to help the user 
run the simulation and analyze its results, 

1.2.2 Storage Subsystems 

Figures 1-2 through 1-6 give example configurations of the five types of stor- 
age subsystems which can be modeled with the present SIM\^GST library. For 
Illustrative purposes the number of variables shown passed between components 
Is limited. A description of the variables being passed is given in Table 
1 - 2 * 

A total wind energy system wl I I generally be made up of elements from a num- 
ber of different subsystems (see Figure 1-8) . In addition, the SIMWEST pro- 
gram can be used for modelswhich Include networks of storage subsystems 
of the same type or a network of wind generators, 

1.2.3 Logic Components 

The capability for nwdeling complex system control logic is provided by the 
power divider, power accumulator and priority Interrupt components. Both the 
divider and accumulator operate on a priority basis. The priority interrupt 
is used by other system components to change the priority setting of the di- 
vider and accumulator. 

The power divider has one Input power port and four output power ports (not 
all output ports need be used for a given slmul ation). The divider also has 
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TABLE 1-2 PARTIAL LIST OF COMPONENT INPUTS AND OUTPUTS 


P 

RE 

MP 

RS 

T 

TA 

M 

H 

LD 

WV 

GR 

EF 

I NT 

TSO 

PR 

PS 

W 

DW 

TD 

SP 

VAR 


SYMBOLS 

POWER 

POWER REQUEST 

MAXIMUM POWER 

ROTOR SPEED 

TEMPERATURE 

AMBIENT TEMPERATURE 

AAASS FLOW RATE 

RESERVOIR HEIGHT 

THERMAL LOAD DELIVERED 

WIND VELOCITY 

GEAR RATIO 

EFFICIENCY 

INTERRUPT FLAG 

MINIMUM AIR TEMPERATURE 

PRESSURE 

PRIORITY SEQUENCE 
WEEK OF YEAR 
DAY OF WEEK 
TIME OF DAY 
SURPLUS POWER 
FILE READ VARIABLE 
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FIGURE 1-2 PNEUMATIC STORAGE SUBSYSTEM 
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FIGURE 1-3 PUMPED HYDRO STORAGE SUBSYSTEM 
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FIGURE 1-4 aVWHEEL STORAGE 
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FIGURE 1-5 BATTERY STORAGE 
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LD = LOAD delivered 


FIGURE 1-6 THERMAL STORAGE 
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an Input request associated with each of its output power ports. These power 
requests generally come from a component with which the output power port 
is directly or Indirectly connected. The user specifies priorities of either 
0,1, 2, 3, or 4 to be associated with each of the output ports. If the input 
power to the power divider exceeds that requested of the port with highest 
priority (priority 1) then the excess power goes to the port with the next 
lower priority. This process continues until either all power is distributed 
or all requests of non-zero priority ports are met. A port with zero (0) pri- 
ority wi I I never receive power. Such ports are included so that the port may 
be connected to a component but transmit power only in critical situations, 
Say, when a battery has been in discharge state for a critical amount of time. 
In these situations, the connected component would have to change the zero 
priority setting of the power divider by use of a priority interrupt. 

Two or more ports may be assigned the same priority in which case the user 
may specify weights to be associated with each pori . Then if there is not 
enough power available to satisfy all requests of equal priority the power 
is divided between them in proportion to the user specified weights. 

The power accumulator is similar to the divider except that instead of dis- 
tributing power from a single input port between four output ports, it ac- 
cumulates power from four input ports and sends it out through a single out- 
put port. The power accumulator also accepts output power requests from the 
component connected to its single output power port and it outputs requests 
for ear-h of i ts I npUt ports in order to service the output power request. 

In addition to the actual power delivered to each input port, the power ac- 
cumulator also accepts information as to the maximum power that can be de- 
livered to that port. These values are used by the accumulator to determine 
how to distribute its power request between its four input ports. If the in- 
put power request exceeds the maximum deliverable power for the port of high- 
est priority, then the remainder is shifted to the port with the next lower 
priority. This process continues bntl I either the power request has been com- 
pletely distributed between the highest priority input ports or all Input 
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ports have requests equal to their maximum deliverable power. An example 
illustrative of the use of power dividers and power accumulators is given 
in Figure 1-7. 

Here the wind turbine distributes power first to satisfy the request from 
load 1. if there is power left over, it then tries to satisfy the request 
from the battery. Finally, if the battery is full or if its charging rate 
is met, then the excess power goes to the flywheel. The battery is connect- 
ed to the wind turbine and also has a priority zero connection to the util- 
ity, Thus, if the battery remains in a discharge state for more than a spec, 
ified amount of time, it can change the utility priority ( from 0 to 1) to 
receive the needed power. 

Also in Figure 1-7, we see that load 2 prefers to draw power from the fly- 
wheel before turning to the battery. This configuration tends to keep the 
flywheel as discharged as possible, using it primarily as a means to absorb 
large influxes of power. 

Figure 1-7 is a rather simple conf i gurati on used for illustrative purposes. 
A more complex configuration is shown in Figure 1-8. 

1.2.4 SIMWEST Output 

There are three basic forms of SIMWEST output to facilitate the analysis 
of wind energy storage systems; line printer plots, histograms of system 
variables and time sequenced output of variable values. To enhance the use- 
fulness of these outputs each SIMWEST library component is associated with 
a number of output variables. Prior to simulating a given system the user 
specifies which of these variables he wants plotted. For plotted output he 
may select to have the independent variable be the plot time or any of the 
other variables. For example he may want to plot the energy of pneumatic 
storage as a function of time and/or as a function of storage versus tem- 
perature. If the user wants s time sequenced listing of all variable values 


BCS 40180-2 


13 



14 


BCS 40180-2 



















BCS 40180-2 



FIGURE 1-8 PLUMBROOK CONFIGURATION FOR PARAMETER STUDY 

























he just specifies the time step between printouts. The listing of ail vari- 
ables has proven to be a useful tool in understanding the performance of 
the storage system under consideration and a valuable aid in validating the 
system design. 
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2.0 MODEL GENERATION 


The Model Generation program design is based on the assumption that the sys- 
tem analyst will begin by constructing a schematic diagram of the system 
he wishes to analyze. This schematic will be comprised primarily of standard 
SIMWEST 1 i brary components. Standard I i brary components include wind turbine, 
wind models, AC induction motors, inverters, rectifiers, etc. If a particu- 
lar system cannot be modeled with existing standard components, the analyst 
may construct the model by including appropriate FORTRAN statements in his 
system description. 

All interconnections between standard components are accomplished by the 
Model Generation program. The analyst merely specifies each standard compo- 
nent in the schematic diagram and all of the components that provide inputs 
to that component. The Model Generation program then generates names and 
the proper interconnections between the specified components. This is accorr>- 
plished by matching the input quantities required by each standard component 
to the output quantities of the specified Input components. 

After processing the comp lete system mode I description, the Model Generation 
program generates a schematic diagram of the model showing the interconnec- 
tions between standard components and the quantities such as power, pressure, 
temperature, mass flow rates, etc., that pass through each interconnection. 
This schematic is produced on the I ineprinter to provide a rapid graphic 
check on the program's i nterpretat ion of the model description. 

In addition, the program produces a list of input data that will be required 
by each component to complete the model description. Both the scalar param- 
eters and tabular data required for the analysis are included in this list. 
The program assumes that any quantity not supplied by another component will 
be supplied as a f i xed parameter by the analyst. Thus requests for non-param- 
eter Items in the input data list will reveal any connection that was omitted 
from the system model description. 
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2.1 iV\ODEL DESCRIPTION 


Tho Atodel Genera Hon program Is a precompiler program which accepts model 
description instructions and from these instructions generates a FORTRAN 
model of a system. These Instructions, referred to as "program comtnands," 
are made up of one or more words. In addition, the system model descrip- 
tion contains numeric values, standard component names, and standard in- 
put and output quantity names. 

The Wode I Generation commands may be best introduced with a simple example 
of their use to describe a wind turbine system. Figure 2.1-1 shows an ana- 
lyst's schematic of a wind turbine model that has been constructed using 
standard components on a SIMWEST schematic form. The standard component names 
used in this sample are: 

WD - Wind Model 

WT - Wind Turbine 

Tl - Time Conversion 

HG - Histogram Generator 

GR - Fixed Ratio Transmission 

LO - Electrical Load 

GE - AC Induction Generator 

The SiMWEST description of this model would be as follows: 

Example 2.1 

LIST STANDARD COMPONENTS 

MODEL DESCRIPTION WIND TURBINE TEST CASE 

L0CATl0N==15 Tl 

L0CAT10N=11 WD INPUTS=Tl 

L0CATI0N==51 WT 1NPUT5=WD 


10 
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Example a»l (Coni',) 


LOCAT10N«55 

GR 

iNPUTS==^WT 

LOCATlON=5i 

I-IG 

iNPUTS«WT(P «F1N) 

LOCATlON=s39 

GE 

INPUTS;=GR 

LOCATlONO 

LO 

1NPUTS=GE,TI 

END OF MODEL 



PRINT 




The modol dcsGrIptlon consists of a statement as to the location of each 
component in the schematic and a list of all components that provide Inputs 
to that component. The location of the component in the schematic is used 
for a lino printer drawn schematic of the model, such as shown in Ftejure 
In the line printer' schematic the input and output v-iuantltios such 
as powers (P2 WT, GE, GR) oro shown on the various connecting lines, 

S,l.l Phrases and Dell mi tors 

The system model description Is interpreted by the Model Generation program 
as a series of "phrases'% which can appear In a free field format in any 
position on a data card. Phrases must be separated by any one of the delimi- 
ter symbols shown in Table 

Table 2.1-1 


Model Generation Program Language Dal I mi tors 

s; equal sign 
, conina 

(left parenthesis 
) right parenthesis 
three or more blanks 
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FIGURE 2.1-2 LINEPRINTER-DRAWN WIND TURBINE MODEL SCHEMATIC 


2.1.2. Conmand Phrases 


The Atodel Generation command phrases are described In this section In a lo- 
gical sequence similar to that In which they appear In system model descrip- 
t I ons. 

MODEL DESCRIPTION 

The AV)DEL DESCRIPTION command phrase Indicates the start of a new system mo- 
del. This phrase may be fol iowe'^, (on the same card), by a title of up to 
60 characters. This title will be used to identify various program output 
schematics, lists and program listings. In Example 2-1, the title was "Wind 
Turbine Test Case." 


LOCATION 

The LOCATION command phrase indicates the start of the description of a new 
component in the system model. This command must be followed by a numeric 
value phrase that specifies the location of the new component on the model 
schematic. Thus in the example of Figure 2.1-1, the location number of the 
wind model WD was 11 and the wind turbine WT was 31, etc. To be a valid com- 
ponent location, the last two digits of this number must comprise a number 
between 1 and 80. The hundreds column Is used to specify additional pages 
as needed for the schematic. Thus the numbers: 

1, 13, 51, 80 

would be valid location numbers for components on the first page, (PAGE 0), 
of a system schematic. These same locations on the second page of the schema- 
tic, (PAGE 1), would be: 

101, 113, 151, 180 
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The [ocQtion number phrase fs followed by Hie name of fhe componenf at that 
location. Component names are discussed in Section 2.2. 

A LOCATION statement should be given only once for each component. That is^ 
once a LOCATION statement is started for a component the complete descrip- 
tion of all inputs to that component should be given. 

t NPUTS 

The INPUTS command phrase indicates that the fol lowing phrases contain the 
names of the components that provide inputs to the component at the speci- 
fied location. Thus in the example of Figure 2.1-1/ the electric load at lo- 
cation 19 which receives Inputs from generator GE and the time source T1 was 
described as: 

LQCATlON-19 LO INPUTS=GE,Tl 

in this example the command phrase INPUTS is followed by two component names. 
As many component names as are necessary to specify the Inputs to a particu- 
lar system component may be included in each component description. 

For some system components there are multiple Input and/or output ports. For 
example/ a power divider has four input power ports. When spec) fyi ng the con- 
nections between such components, it Is advisable to specify which ports are 
to be connected. This is done by adding the port numbers to be connected after 
the name of the input component. Thus, the wind turbine to transmission con- 
nection could have been more explicitly described as; 

L0CATI0N=35 GR lNPUTS=Wn 2 / 1 ) 

This says that port 2 of the wind turbine (WT) drives port 1 of the trans- 
mission (GR), Any quant { t ies which have no port numbers are considered "uni- 
versal ports'* for input connections. Thus/ the GR input of GR is connected 


BCS 40180-2 


23 


!' 

T 

I 

up to GR wr, and the RS input of WT is connected up to RSIGR by the above | 

command. If the port designations are omitted, as they were in example 2 . 1 ., \ 

the connections will be made to the first available input port starting with | 

the minimum port number. Once a connection has been made to an input port, | 

r 

those input quantities that are connected are unavailable for further connect- 
ions. An exception is made when the physical quantities of both input and ? 

output are specified. This method of specifying connections is described in 
the fol lowing paragraphs. 

For certain components, such as control elements, the inputs to the compo- 
nent can be any physical quantity in the model. For these components, the 
input component names must be supplemented by the name of the particular out- 
put quantity that is to provide the input. 

As an example, consider a component that represents a linear first order lag 
transfer function. If the transfer function component's input, FiN, was to 
be the rotor speed of the wind turbine WT in example 2.1, then the statement: 

L0CATI0N=53 LA 1 NPUTS=WT ( RS=F I N ) 

) 

j 

would indicate to the program that of the outputs of the wind turbine, the I 

output rotor speed, RS, was to be used as the input, FIN, to the transfer 
function, LA. 

To summarize, there are three levels of connection specification: 

1. Default (only component names are specified) 

Connections are made between al 1 unconnected inputs and outputs for the 
first ports for which a match of physical quantity names occurs. 
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2. Ports Specified 

Connections are made between matching physical quantities for a11 uncon- 
nected inputs and outputs of the specified ports. 

3. Physical Quantities Specified 

Connections are made between only those quantities specified . Previous 
connections can be over-ridden, providing the three character physical 
quantity name of the previously connected variable is used. For example, 
the phrase 

L0CATI0N^19 LO INPUTS=6E,6E(P,2^MP2) ,TI 

will replace the input parameter MPILO by MP26E and then override the con- 
nection MP26E and substitute P2 GE as the LO input. 

END OF MODEL 

The END OF MODEL command phrase indicates that model description has been com- 
pleted and that the Model Generation program should proceed with the generation 
of the model subroutines. 

PRINT 

The PRINT command phrase causes the program to: (1) draw a schematic of the 
system model, as shown in Figure 2.1-2; (2) print a list of inpui requirements 
for the model; and (3) print a source listing of the FORTRAN subroutines that 
were generated for the model. The Model Generation program then terminates. 

PUNCH 

The PUNCH command phrase has the same effect as the PRINT command, but in 
addition a FORTRAN source deck of the system model is produced. 
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FORTRAN STATEMENTS 


The FORTRAN STATEMENTS conmand phrase allows the system analyst to supple- 
ment the library components with FORTRAN statements. Using this feature, 
the analyst can introduce his own program logic, DO loops, etc., as necessary 
to model any system feature not obtainable with standard library components. 

One of the common uses of the FORTRAN STATEAAENTS command is to input large 
tables into the model. Two function subprograms TBLUl and TBLU2 are provided 
for this use. They perform linear interpolation from one and two dimension 
tables, respectively. TBLUl is in general called in the form 

F = TBLU1{X,TAB(4),TAB(4+N),I,±N), 

where F is the interpolated value at the desired point X, TAB is a one di- 
mension table with dimension N, TAB(4) Is the Independent variable and TAB 
(4+N) is the dependent variable list, 1 =0 for equal spaced data, 1=1 
for unequal spaced data, and the dimension N is specified as the last vari- 
able if linear extrapolation's desired, and -N is specified if truncation 
is desired outside the table limits. Similarly, TBLU2 is in general called 
usi ng the form 

F = TBLU2(X,Y,TAB(4+M),TAB{4),TAB(4tA\fN),lX,IY,iN,ii\^,N,M), 

where X and Y are the values of the primary and secondary independent varia- 
bles, N and M are the dimensions of the primary and secondary variable arrays, 
IX and lY are indicators for equal spaced or unequal spaced data as above, 
and the sign convention on N and M is positive for extrapolation, negative 
for truncation. 

The FORTRAN STATEMENTS command would normally be used only when some portion 
of the system cannot be modeled wl th I tbrary components. Then using this fea- 
ture of the program, the analyst must perform many of the detail connections 
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and naming of variables, that are normally accomplished by the Atodel Genera- 
tion program. In return for these added tasks, the analyst gains a great deal 
of additional freedom and flexibility in forming details of his system model. 
Non-executable code such as common blocks must precede the first component 
definition and executable code should come after a component has been defined 
for the iteration logic to work properly. 

ADD STATES 
ADD VAR I ABLES 
ADD PARAMETERS 
ADD TABLES 

The ADD commands may be Used in conjunction with the FORTRAN STATEMENTS to 
add states, variables, parameters, and tables that occur within the FORTRAN 
statements, to the system model. Quantities that are not specified by one 
of these commands cannot be accessed or manipulated by the Analysis Program. 

Before discussing these commands, a few definitions of terms are In order. 

States: States are those quantities in the system model 

that are described by first order differential 
equations. The state variables are the result 
of integrating the set of fjrst order differ- 
ential equations that comprise the dynamic sys- 
tem model. The number of states equals the or- 
der of the system model. The states are dynamic, 
time varying quantities during most simulation 
studies. The initial values, (initial conditions), 
of the states must be input as part of the sys- 
tem model description. 
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Variables: 


Variables are all other dynamic time varying 
quantities in the system model that are not 
states. In general^ variables are related to 
states by algebraic relationships. 


Parameters; 


Tables: 


Parameters are constant scalar quantities in 
the system model. Parameters can be manipula- 
ted by the analyst to alter the system model. 

All parameter values'll should be input as part 
of the system modal description. 

Tables are constant nonscalar quantities in the 
system model. Tables are used to represent alge- 
braic functional relationships with one or two 
independent variables. All table values must 
be input as part of the system model description. 


The format for the ADD commands is that the cownand is followed by one or 
more phrases that contain the names of the states, variables, parameters, 
or tables. In addition to each table name, a number, specifying the amount 
of storage to be allocated for that table must be given. This number is posi- 
tive If the table is two dimensional and negative if one d imensiona I , wl th 
absolute Value determined by the formula: 

N = 3 + I •+• J + D 

N = the total storage required by the table, 
in words. 


For certain components, default values are provided for some parameters. 


i 
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I = the number of data points in the primary 
independent variable table. 

J = the number of data points in the secondary 
independent variable table. (J=0 if there 
is only one independent variable.) 

D = the number of data points in the dependent 
Variable table. (D=l If there is only one 
independent variable. D=I*J if there are 
two Independent variables. 

The following example illustrates the use of FORTRAN STATEMENTS in the par- 
ameter study model: 

Example 2.2 

MODEL DESCRIPTION PARAMETER STUDY 


ADD TABLES = WIND, 802 
LOCATION = 41 Tl 
FORTRAN STATEMENTS 
C READ WIND VELOCITY DATA 

WVIMO = TBLU2(TD Tl ,DY Tt ,WI ND(35 ) ,WI ND(4) , 
1 WIND(59),0,0,24,-31,24,31) 

LOCATION =71 WD INPUTS = Tl 
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In t-his models Fortran U used to input wind velocity data. The wind tabie^ 
denoted WIND, consists of up to 21 days of hourly wind speeds. Hence, as 
described previously, the total storage required is 3+24+21 +24’'''31 =802. The 
Fortran is inserted after time of day and day of the year are computed in 
Tl. In this case, N=24, AV=-‘31, the data is equal spaced, and extrapolation 
Is used to provide velocity data over each 24 hour period. The variable WVIWD 
is the name at the wind input to \VD generated by the precompiler. Fortran 
insertion in the mode' ends when the L0CATl0N=71 ... command is read and 
a call to the subroutine WD is then generated. 

LIST STANDARD COWPONENTS 

The LIST STANDARD COVVPONENTS command phrase causes the program to print a 
list of all standard components. For each standard component, lists of in- 
puts, outputs, and tables for that component are provided. For each input, 
the physical quantity name and port number is given. For each output, the 
physical quantity name, port number, and the letter S, if the quantity Is 
a Slate is given. For each table, the table name, the number of Independent 
variables and the ma.ximum amount of storage allowed is provided. This command 
is usually given as the first command of a model description and will result 
in a list of all standard component information as the first output from the 
Model Generation program. 

2.2 N.AMING CONVENTION 

All standard components are given names consisting of two characters, the 
first of which is alphabetical.. Thus we have WT for wind turbine, GE for gen- 
erator, WO for wind model, etc. Where multiple components of the same type 
are required, the second character Is. used to distinguish between the differ- 
ent models of the same basic component type. A specific component in a model 
can be distinguished from other components of the same type by adding one 
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more character to the standard component name. This character is usually nu- 
meric but can also be alphabetical or blank. Thus a given model can contain 
up to 37 different components of the same standard component type. For exam- 
ple, a model with ten different wind turbines might have these components 
designated as: 

WT1,WT2;WT3, ..... ,WT8,Wr9,WTA 

2.2.1 Variable. Parameter, and Table Naming Conventions 

All of the input, output, and tabular quantities required by each component 
in a system model must have unique FORTRAN names. These quantities are given 
names consisting of up to three characters that describe the physical quanti- 
ty they represent. 

Since a single component may have several inputs or outputs of the same phys- 
ical quantity, the program adds the port number to the second or third char- 
acter of the physical quantity name to prevent such a dupl icatlon. 

The physical quantities that are outputs of a given component are identified 
by adding the three character name of that component to the three character 
name of the physical quantity. In this way, unique six character FORTRAN names 
are generated for all output quantities of the system model components. 

Input quantities to a component that are driven by another component carry 
the names cuf the component that drives them. Any inputs that are not driven 
by other model components are assumed to be parameters and are assigned the 
name of the component for which they are an input. 

If a component should require tabular data as an Input, unique table names 
are generated just as scalar Input quantity names by adding the component 
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name to the table name. A pictorial representation of the character assign- 
ment in component, variable, and table names is given in Figure 2.2-1. 

2.3 MODEL SCHEMATIC 

The Model Generation program produces a schematic diagram of the system being 
modeled. This schematic is crude but is inexpensive and does not have the 
flow t'me delays associated with more elaborate plotting methods. Its purpose 
is to provide a means of rapidly locating errors in the model description. 

In order to construct a schematic diagram in an efficient manner with a rea- 
sonable size program, it was necessary to establish some simple rules for 
symbol generation, component connection paths, and labeling. If these rules 
are kept in mind when laying-out a schematic for the system, the SlMWEST pro- 
duced schematic will match that developed by the analyst. If the rules are 
violated by the analyst's schematic, the SlMWEST schematic should still be 
correct, but may contain some unusual component connection paths and some 
labeling information may be overwritten. 

2.3.1 Standard Schematic Form 

The SlMWEST schematic diagrams are produced on a standard 11" by 14" line- 
printer page with 80 component locations per page. A standard form contain- 
ing only the location numbers can be obtained by executing the Atodel Genera- 
tion program with the single program command, PRINT. This form can then be 
reproduced and the copies used as forms for drawing system model schematics. 

2.3.2 Input Quantity Labeling 

The names of the physical quanti ties that are input to one component from 
another component are listed adjacent to the downstream component symbol. 
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FIGURE 2. 


INPUT/ OUTPUT OR TABLE NAMES 


PHYSICAL QUANTITY 
OR TABLE NAMES 




STD, SPECIFIC 

COHP. COMP, 

IDfNTIFIER 



6 CHARACTER 
NAME 


PORT NO, 
(IF REQ'D) 


SPECIFIC COMP. NAME 


2-1 CHARACTER ASSIGNMENT INPUT/ OUTPUT OR TABLE NAME 
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These labels are placed near the connecting line that Joins the two compo-^ 
neats. Since these names are composed of the physical quantity name and ihc 
name of the component that generates the information/ the source of the in- 
put is evident from the name Itself. Parameter and tabular inputs to a com- 
ponent are not shown on the schematic. These constant Inputs are described 
In the Input Requirements List. 

2.3.3 Component Connection Paths 

In order to keep the core requ i rements and run time of the SlMWEST schematic 
drawing subrout i ne smal i , it was necessary to limit the types of connecting 
paths between components to a few basic routes. These paths are shown in Fig- 
ure 2,3-1. Connections between components on the same horizontal or vorti- 
cal line are straightforward. However, connections between components that 
do not share a horizontal or vertical line require at least a two segment 
path. These paths have been arbitrarily chosen to follow a ciockwise route. 

It is therefore advisable that components that are on diagonal locations be 
placed in a clockwise sequence. I f counter-cl ockwlse flow between components 
is necessary. It can be accommodated by placing the components on the same 
horizontal or vertical I ines. 

The SlMWEST schematic drawing subroutine makes no attempt to go around coith 
ponents that get in the way of a connection path. Such components are "run- 
over" by the connecting I ine, 

2.3.4 Additional Pages 

The SlMWEST schematic diagram may be broken down Into as many pages as are 
necessary. No attempt is made to draw connecting paths between components 
located on df fferent pages. It is therefore advisable to minimize the nunv- 
ber of connecting paths between pages. This can usually be done by grouping 
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components with many Interconnections on the same page and placing page boun- 
daries between such groups of components. 

2.5.5 Guidelines for Schematic Layout 

The following guidelines may help in creating schematic layouts that can be 
duplicated by the SIMWEST program. 

1. Try to place connected components on the same horizontal or vertical lino. 

2. Avoid placing components on adjacent location points. 

3. Place diagonal components so that flow is clockwise. 

4. Group components to minimize flow paths between pages. 

2.4 WARNING MESSAGES 

One or more of the following warning messages wi M occur if the program is 
unable to interpret a portion of the model description or encounters prob- 
lems in assemb I ing the system model. These messages will be preceded by: 
WARNING -jHHf or NOTICE The symbols xxx and zzz are used to indicate 

phrases from the model description that are included as part jf the warning 
message. The following messages are listed in alphabetical order: 

1. CAN'T IDENTIFY xxx AS A STANDARD COMPONENT 

XXX will contain the first two characters of the phrase which cannot be 
identified as a cotmiand or standard component. This message will often 
follow other warning messages as the program makes successive attempts 
to interpret the given phrase. 
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CAN'T IDENTIFY XXX AS A VALID INPUT COMPONENT TO zzz 


The component- xxx cannot be found in the list of components for the cur- 
rent system model. 

3. CAN'T LOCATE XXX AS AN INPUT COMPONENT TO LOCATION n 

This message indicates that the component xxx, which provides inputs to 
location n in the schematic, has not been assigned a location number. 

Check for a missing LOCATION statement or misspelling of the component 
name . 

4. COMPONENT xxx DEF I N IT ION WASN 'T COMPLETED BEFORE STARTING THE DEFINITION 
OF COMPONENT zzz 

The ccvimand INPUTS was not given between the component names xxx and zzz. 
Check for proper spsHing of INPUTS and a valid delimiter after the phrase 
xxx. 

5. COMPONENT xxx HAS ALREADY BEEN DEFINED 

The component xxx was defined in a previous LOCATION statement. 

6. LOCATION NO. xXX FOR CCMPONENT zzz HAS LAST TWO DiGlTS OUTSIDE THE ALLOW- 
ABLE RANGE 1 TO 80. NO SYMBOL WILL BE PLACED IN $CHEM>\TlC FOR THIS COM- 
PONENT 

This message will occur at the end of the model description for a com- 
ponent zzz which has an invalid location number. The system model may 
still be valid but the schematic will not contain this component. 
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7. NO XXX OUTPUTS AWTCH UNSATISFIED zzz INPUTS 


Check that it was intended to drive component zzz with component xxx 
or that the inputs to zzz have been previously satisfied by other com- 
ponent connections. 

8. TABLE NAME XXX MUST BE FOLLOWED BY A NUMERIC DIMENSION RATHER THAN zzz 

When using the ADD TABLES command, it is necessary to provide the maximum 
amount of storage to be allocated for the table as well as the table 
name. This storage value must be a numeric quantity. 

9. xxx IS NOT A VALID INPUT QUANTITY OR PORT DESIGNATION FOR COMPONENT zzz 

The phrase xxx cannot be located as one of the input quantities or in- 
put ports of the component zzz. No connections will occur. Check the 
list of standard components for the proper spe I I i ng or port designations 
for this component. 

10. xxx IS NOT A VALID LOCATION NUMBER 

The LOCATION command must be followed by a numeric location number. 

11. XXX IS NOT A VALID PORT DESIGNATION FOR INPUT COMPONENT zzz. ERRONEOUS 
CONNECTIONS A\AY OCCUR. 

The phrase xxx cannot be located as a valid input port for the component 
zzz. Connections will be attempted using the upstream output port that 
was identified. 
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2.5 MODEL GENERATION LIMITATIONS 


Certain limitations exist in the Aftodel Generation program due to array di- 
mensions within the program. For most applications these limits should not 
be encountered. However, if they should be encountered they can usually be 
extended at the expense of larger core requirements to execute the program. 
The following table describes these limitations: 


Limitation Descriotion 


Maximum Value 

Standard components in 1 

ibrary 

150 

Components per model 


200 

Inputs per any standard 

component 

50 

Outputs per any standard 

component 

50 

Tables per any standard 

component 

15 

Tables per model 


100 

Table dimension (words) 


960 
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3.0 SIMULATION PROGRAM 

Once a mode) has been generated as described in Section 2 , the user must 
describe the simulation he wishes to perform. This involves specifying the 
various parameters detailing the model components and setting the models 
initial conditions. It involves defining input data tables and the type and 
quantities of pri nted output, both tabular and plotted. The user must also 
specify the number of iterations he wishes to perform at each time step and 
the maximum number of component diagnostics. This section describes in de- 
tail the commands for specifying the simulation and gives some example out- 
put. 

3.1 /VDDEL INPUT DATA 

A dynamic system model requires that the values of numerous model parameters 
tables and initial conditions, be provided to complete the model description 
Sections 3.1.1, 3.1.2 and 3.2 describe the methods used to specify parameter 
values, tables, and initial conditions. 

3.1.1 Scalar Data 

PARAMETER VALUES (Default values = .99999) 

This program command allows the numeric values of parameters to be loaded 
into the system model. The PARAMETER VALUES command is followed by one or 
more parameter names followed by a numeric value. Each name and Its value 
are separated by one of the standard delimiter symbols. This command is used 
to specify the values of all system model parameters at the beginning of 
an analysis. It may also be used at any point between analyses to modify 
the value of one or more model parameters. A default value of .99999 is pro- 
vided by the A'odel Generation program for all parameters not so specified. 


BCS 40180-2 


Example 3,1-1 


PARAMETER VALUES = CYCLES = 6.01, TO T1 = 0, EC VJP = .2, 

CR CM = 15, LE cm = 30, MDEHS = 4.E5, 

3.1.2 Tabular Data 

If tabular data is required by the system model, it should be loaded before 
any of the simulation commands described in Section 3.4 are issued. Tables 
may be modified between analyses by loading new values. The tables required 
by a SIMWEST generated model are specified in the Input Requirements List. 

These tables may have either one or two independent variables. All data items 
are in a free field format with each item separated by one of the standard 
delimiters; comma [,], equal sign =[,]left or right parenthesis t) , or 
three or more consecutive blank spaces. The data items required for each 
table are placed on cards as follows: 

Card 1 TABLE table name NX NZ 
Card 2* Z table values 

Card 3* X table values I 

Card 4ff Y table values \ 

I 

where: Table Name - The six character table name generated by the Model \ 

Generation program. i 

NX - The number of points in the primary independent vari- |j 

able table, f 

f: 

N25Hf - The number of points in the secondary independent [ 

variable table. | 

Z table -JHt- - Table of NZ secondary independent variable values. | 

X table - Table of NX independent table values, t 

Y table - 1 or NZ tables of NX dependent variable values. { 

* As many cards as required may be used. Each table must start with a new i' 

card and NZ, NX, and NX^^Z points must be given per table, 

fHt These items are omitted for tables with one independent variable. | 
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A copy of all tabular input data is printed as It is Interpreted from data 
cards. The following example shows the data cards for a one and a two in- 
dependent variable table. 


Example 3.1-2 


Card 

1 

TABLE, TABbNE, 10 

Card 

2 

1, 2, 3, 4, 

5, 6, 7, 8 

Card 

3 

11, 12, 13, 

14, 15, 16 

Card 

4 

TABLE, TABTWO, 5, 4 

Card 

5 

10.3, 20.4, 

30.6, 40.6 

Card 

6 

1. 2, 3, 4, 

5 

Card 

7 

11, 12, 13, 

14, 16 

Card 

8 

21, 22, 23, 

24, 25 

Card 

9 

31, 32, 33, 

34, 35 

Card 

10 

41, 42, 43, 

44, 45 


9, 10 
17, 18 


19, 110 


The printout of these tables would be: 


TABLE TABONE 

PRIMARY INDEPENDENT VARIABLE TABLE 


1.000 

2.000 3.000 

DEPENDENT 

4.000 5.000 

VARIABLE TABLE 

6.000 

7.000 

8.000 

9.000 

10.00 

11.00 

12.00 13.00 

14.00 15,00 

16.00 

17.00 

18.00 

19.00 

110,00 


TABLE TABTWO 


SECONDARY I NDEPENDENT VAR I ABLE TABLE 


10.30 

20.40 

30.50 

40.60 



PRIMRY INDEPENDENT VARIABLE 

TABLE 


1.000 

2.000 

3.000 

4.000 

5.000 


DEPENDENT VAR! 

lABLE TABLE 



11.00 

12.00 

13.00 

14.00 

15.00 

21.00 

22.00 

23.00 

24.00 

25.00 

31.00 

32.00 

33.00 

34.00 

35.00 

41.00 

42.00 

43.00 

44,00 

45.00 
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3.2 INITIAL CONDITION AND INTEGRATION CONTROLS 


INITIAL CONDITIONS {Default value = 0) 

INT CONTROLS (Default value = 1,0) 

These program commands may be used to specify initial condition values and 
the integrator status, (either active (=11 or frozen (=0)). Default values 
of 0. for initial conditions and 1 for integration controls are furnished 
by the simulation program, Hovever, it is strongly recommended that values 
appropriate to the particular system model be furnislied for the initial con- 
ditions. 

Each of these commands is followed by phrases of the form of a state name 
followed by a numeric value. 

Example 3.2-1: 

INITIAL CONDITIONS = HS = 1.6E6, E TS = 600, VDELO = 0, 

INT CONTROLS = A\A HS = 0, E TS = 1, VDELO = 1, 

ALL STATES (Default Condition) 

NO STATES 

These program commands may be used to activate or freeze all system inte- 
grators. These commands are normally used together with the INT CONTROLS 
command to specify the desired integrator configuration. 
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3.3 INITIAL CONDITION STORAGE COMMANDS 

XIC-X 

XIC-XICI 

XIC-XIC2 

XIC-XIC3 

XICI-XIC 

XIC2-XIC 

XIC3-XIC 

These program commands are used to transfer data from the current state vec- 
tor, X, to the initial condition vector, XlC, and between the XIC vector 
and three auxiliary initial condition vectors XICI, XIC2, XIC3. 

Example 3.3-1 

XICI-XIC, XIC-X, XIC2-XIC 

The three program commands shown above would take the current operating point 
(initial condition vector) and store it in vector XICI; then transfer the 
current state, X, into XlC; and then store that value of XIC in XIC2. 

3.4 SIMULATION COMMANDS 

SIA\ULATE 

This program command initiates simulation operation. Associated with this 
command are the program values: 

Defaul t Vai ues: 


TINC = time increment, hours 0.1 

TMAX = duration of the simulation run hours 1.0 

OUTRATE = output rate 1 

PRATE = print rate 1 

PRINT CONTROL ~ print control variable 0 
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These program commands specify the Integration time increment, duration of 
simulation run, the simulation output rate, the printing rate, and the quan- 
tity of printing, at each point in time. These quantities should be specified 
before the first issuance of the SI/WJLATE command. 

The Time increment, TINC, provides the integrator time step size, in hours, 
for the integrator. TINC also provides the report Interval for which data 
will be available for printing or plotting. The default value for TINC is 

0 . 1 . 

The duration of a simulation calculation in hours, is specified by the TMAX 
parameter. The default value of TMAX is 1. 

The output rate parameter, OUTRATE, determines the sampling rate at which 
simulation data is added to plots. Thus, if OUTRATE is set equal to 10, data 
will be plotted every 10th time increment, TINC. The default value of OUTRATE 
is 1. OUTRATE should only be set to positive integer values. 

The number of data samples plotted for a simulation analysis Is thus given 
by: 

No. of Plotted Samples = TMAX + 1 

TlNC-5^0UTRATE 

For most simulation operation, the plotted output specified by the DISPLAY 
commands is the primary output and no line printer output is used. Hcwever, 
for diagnosing problems in a simulation, the line printer options provided 
by the PRINT CONTROL parameter allow large amounts of detailed information 
about the simulated system to be obtained. 

The value of the PRINT CONTROL parameter controls the quantity of data printed 
at each print report interval as shown in Table 3.4—1. Options 1 through 4 
give "snap-shots" of all states, rates, variables, and parameters of the 
system model at a particular point in time. Option 5 provides tabular lists 
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of Up to 10 specified quant 1 ti es,-)f- The default value for PRINT CONTROL Is 

0 . 

TABLE 3.4-1 

Print Control Values 

Resultant Linepr inter Output. 

None (Default Condition) 

All states, rates, and time 
All states, rates, variables, and time 
All states, rates, variables, and parameters 
at time = 0 

All states, rates, variables, and parameters 
Time and the quantities specified via PRINT 
VARIABLES command. 

The PRATE parameter determines the sampling rate at which the simulation 
data specified by the PRINT CONTROL parameter is presented on the line-print- 
er. Thus, If PRATE is set equal to 5, data will be printed on the line print- 
er every 5th time it is added to the output plots. The rate of output to 
the lineprinter can never be greater than that to the plots. The default 
value of PRATE is 1. PRATE should only be set to positive integer values. 

The number of data samples printed for a simulation analysis is thus given 
by: 

No. of Printed Samples = TMAX +1 

T I NC^OUTRATE-X-PR ATE 


^See the PRINT VARIABLES command description below. 
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PRINT CONTROL 
0 
1 
2 

3 

4 

5 






Example 3.4—1: 

PRINT CONTROL = 2 , TINC = .01, TMAX = 10., 

OUTRATE = 10, PRATE = 10, SIMULATE 

In the example, the simulation would run for 10 hours. Plotted output would 
occur every .1 hour, (10-5«- .01), and printed output would occur every 1. hour 
10* .01) . 

PRINT VARIABLES 

This program command allows up to ten variables to be specified for print- 
ing under option 5 of the PRINT CONTROL, This command is followed by from 
one to ten state, rate, or variable names separated by delimiters. This com- 
mand wipes out all previously stored PRINT VARIABLES names. 

Example 3,4—2: 

PRINT VARIABLES = MA HS, E TS, VDELO 

3.5 PLOT DESIGNATION COMMANDS 

DISPLAYl 
DISPLAY2 
DISPLAY3 
DISPLAY 4 
DISPLAYS 
DISPLAYS 

These program commands may be used to define the quantities to be displayed 
by lineprinter plots for simulation calculations. These commands must be 
issued before the simulation analysis I s requested. From one to five plots 
may be specified per display. Each plot is specified by stating the depen- 
dent variable and the independent variable separated by the letters VS. If 
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desired, the Independent and dependent axis scale ranges can also be spe- 
cified. The Independent scale range Is specified by the word XRANGE followed 
by the minimum and maximum values for this scale. The dependent scale simi- 
larly is specified by the word YRAN'GE. If scale ranges are not specified, 
values will be used that span the given data. 

Si W\NUAL SCALES 

SI AUTO SCALES (Default Condition) 

The S! MNUAL SCALES command allows the plotted output requested by the DIS- 
PLAY commands to be plotted on manual scales specified by the YRAN6E and 
XRANGE commands. The SI AUTO SCALES command can be used to return plotting 
to the automatic scaling mode. Auto scales are selected so that they span 
each plotted quantity. The auto scale option is the default used until manual 
scales are requested. The PRINTER PLOTS command is also required to obtain 
plots. 

Example 3.5-1: 

SI IMNUAL SCALES, PRINTER PLOTS 
DISPLAYI 

WV2W0, VS, TIME, YRANGE =10,40 

PI PD, VS, TIME, YRANGE =0,1000 

P2 PD, VS, TIME, YRANGE = 0,1000 

DISPLAY2 

P2 IV, VS, TIME 

RE2BA, VS, TIME 

REILO, VS, TIME 

DISPLAYS 

PI PD, VS, P2 PD, YRANGE =0,1000, XRANGE = 0,1000 


BCS 40180-2 


49 


TITLE 


The TITLE command allows a title to be placed on all plotted output. Up to 
74 characters may follow the delimiter that follows the TITLE command. The 
TITLE command may be changed before each analysis. Once defined, the title 
remains in effect until a new title is entered. 

E xamp I e 3 . 5-2 : 

TITLE = BATTERY TEST MODEL 

3.6 ITERATION AND DIAGNOSTIC CONTROL 

There are three built-in parameters in any SIMWEST model ; CYCLES, DLINES 
and RESET. These parameters are specified similar to component parameters 
using the PARAAftETER VALUES command. 


CYCLES controls the number of iterations through the model to obtain steady 
state. If CYCLES <0, then only one pass is made through the model. I f CYCLES 
is a positive integer then the number of iterations through the model is 
equal to CYCLES +1. If cycles is positive, but not an integer, then the 
number of iterations is equal to the smallest integer value exceeding cycles. 
A maximum of 20 iterations are permitted per time step. Most of the simple 
models of Section 8 require between four and six iterations per time step 
to attain steady state. A complex model with cascaded logic components may 
require more. 

The task of finding the correct value for CYCLES Is facilitated by the pro- 
gram printing at each time step all variables which have a greater than 5 % 
change in value in the last iteration. 

Since output statistics are only updated the last iteration, many of the 
variables printed indicating nonconvergence are just statistics, and as 
such should be ignored. 
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DLINES controls the amount of convergence related printout to be controlled 
as well as the amount of diagnostic printout put out by the library components. 
If DLINES >0 then the total number of diagnostic printouts is no greater 
than DLINES, Figure 3.6 shows a typical section of diagnostic printout using 
DLINES >0. If DLINES <0 then only library component diagnostics are printed 
with no greater than - DLINES of output. Typical ly> DLINES = 100 is sufficient 


to catch most simulation errors 

per run. 
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FIGURE 3.6 TYPICAL DIAGNOSTIC OUTPUT 

RESET controls the initialization Value for the random number generators if 
several simulations are run bad: to back. If RESET X) (Default) then the same 
random numbers are used for eacn simulation. If RESET S! 0 then the random 
numbers at the start of each simulation are obtained from the last value at 
the end of the previous simulation. 

3.7 DEFINE COAWANDS 

DEFINE STATES 
DEFINE RATES 
DEFINE PARAMETERS 
DEFINE VARIABLES 


These program commands may be used to define the alphanumeric names that 
will be used to refer to states, rates, parameters, and variables. Alt sys- 
tem models formed by the Model Generation program have model related names 
generated for all states, variables, and parameters in the model. State varia- 
ble derivatives, (Rates), are generated as Rl, R2, . . . for all models. Rl, 

R2, ... refer to the . .ites of the first, second,... states respectively. 

If it is desired to replace these machine generated names with other names, 
the DEFINE command may be used to substitute any eight character name of 
the analyst's choosing. These names are associated with the correspondi ng 
numeric quantities located in the labeled commons /CX/, /CXDOT/, /CP/, and 
/CV/. The appropriate location for each quantity is printed out along with 
the quantity name prior to each simulation. Each of these commands is fol- 
lowed by phrases containing the location numeric followed by an alphanumeric 
name with one to eight characters the first of which must be alphabetic. 

Example 3.7: 

DEFINE STATES 

1 = PRESSURE, 2 = STROKE, 5 = VELOCITY, 7 = ANGLE 

DEFINE PARAA/IETERS 
5 = mss, 35 = DCT AREA 

DEFINE VARIABLES, 1 = T OUTLET, 2 = LIQ H20 

Note that the program commands, numeric values and alphanumeric names must 
be separated by delimiters which are: comma [, ], equals [ = ], left parenthe- 
ses [ ( ], right parenthesis [)]f or three or more consecutive spaces, 

3.8 EXAMPLE OUTPUT 

Figure 3.8 shows a sample of the output print format generated using PRINT 
CONTROL =3. This sample is taken from the Wind Turbine and File Read run 
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described in Section 8.1, which is a very simple model. At each print time 
the output quantities are Indexed by number and component name as they oc- 
cur in the model. For example, first all the variables for component Tl are 
printed, then all variables for component TAW, etc. The parameter values at 
time = 0 show both the input values and the default parameters. After T = 0 
only the states, rates, and output variables are printed. Since all the model 
connection variables and output variables are printed, this mode is especially 
valuable for program debugging and analysis at a fixed time. The printer 
plots, samples of which are shown in Section 8, are useful for monitoring 
the time behavior of critical parameters such as energy in storage and percent 
of load delivered by storage. 
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4.0 JOB CONTROL PROCEDURES 

In this section, we describe job control procedures for running and maintain- 
ing the SIMWEST programs. For the convenience of the user, a number of proce- 
dure files have been set up which simplify the user control cards required. 

In Section 4.1, we describe the control cards for executing the model genera- 
tion and analysis programs. Section 4.2 describes the procedures to maintain 
the programs and update the component library. 

4.1 MODEL GENERATION AND ANALYSIS EXECUTION 

Figure 4.1-1 shows an overview of the program structure to execute a simula- 
tion run. The program FiLOAD is only executed when the component library 
is updated, and is thus described in the next section. The user input data 
for the model generation program is put on a file called EASYCARDS. A proce- 
dure file called XQTEASY is then used to generate the model Fortran and com- 
pile this model. Similarly, the user input data for the analysis program 
is put on a file called NONSIMCARDS, and a file called XQTANALYSIS maps the 
relocatable elements into absolute file elements, and executes both the simu- 
lation and printer plot programs. 

A job control stream to execute these programs in a batch environment is given 
by : 

@RUN ... 

(0DELETE,C EASYCARDS. 

0ASG,UP EASYCARDS. 

0DATA,IL EASYCARDS. 


INPUT DATA DECK 
FOR MODEL 


OEND 

@AS6,A XQTEASY. 
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*5CRTCH9 IS FORTRAN SOURCE CODE OUTPUT j 

I 

\ 


FIGURE 4.1-1 SIMWEST PROGRAM EXECUTION STRUCTURE 







^a^DD,PL XQTEASY. 
©DELETE, C NONStMCARDS, 
@^SG,UP NONSIMCARDS. 
©DATA, I L NONSIMCARDS. 


INPUT DATA DECK 
FOR ANALYSIS 


©END 

@ASG,A XQTANALYSiS. 
mDD,PL XQTANALYSIS. 

@FIN 

The job coniTol procedures XQTEASY and XQTANALYSIS are shown in Figures 4.1-2 
and 4.1-3. If a user is creating data inputs from a terminal, then it may 
be somewhat simpler to create new job control procedures similar to XQTEASY 
and XQTANALYSIS, but substituting his data input file names for EASYCARDS 
and NONSIMCARDS, respectively. If the same model is used for a series of 
runs, then only the analysis program is required for execution. However, it 
is safer and also relatively inexpensive to execute both programs when using 
the above job stream. Whenever the file read component Is desired, the user 
must either substitute his file for FI or F2, or add the following job cards 
to XQTANALYSIS: 

®^SG,A MYFILE. 

©USE M, MYFILE. 

where MYFILE is the user time history file and M Is a unit number between 
13 and 18. ISee 7.38 for a discussion of the tape/ file read component.) 

4.2 PROGRAM MAINTENANCE AND LIBRARY UPDATES 

Whenever the component library is updated, the user must compile the Fortran 
code and run the F I LOAD program to furnish the model generation program com- 
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@HDG SIMWEST MODEL GENERATION 
mSG,AX MGABS. 

@ASG,A M18. 

OUSE 18,M18. 

@ASG,T M7. 

OUSE 7,M7. 

OASG,T SCRTCH8. 

OUSE 8,SCRTCH8. 

ODELETE.C SCRTCH9. 

O^SG,UP SCRTCH9. 

OUSE 9,SCRTCH9, 

©ASG,T SCRTCH10. 

OUSE 10,SCRTCH10. 

©ASG,T SCRTCHll. 

OUSE 11, SCRTCHll. 

©ASG,T SCRTCH12. 

OUSE 12,SCRTCH12. 

OASG,A EASYCARDS. 

OUSE 5, EASYCARDS. 

©XQT MGABS. EASY 
@ASG,AX ASRO. 

©ASG,AX ASSI . 

®«\DO,PL 9. 

OFREE 18. ,7. ,8. ,9. ,10. ,11. ,12. 


FIGURE 4.1-2 XQTEASY JOB CONTROL FILE 


©HDG SIMWEST ANALYSIS 
OASG,AX MAPANALYSIS. 
OADD,PL MAPANALYSIS, 
@ASG,AX ASABS. 

©ASG,AX FI. 

©USE 11, FI. 

©ASG,AX F2. 

©USE 12,vF2. 

@ASG,T SCRTCH25. 

OUSE 25,SCRTCH25. 
0DELETE,C SCRTCH26. 
OASG,UP SCRTCH2(>. 

OUSE 26,SCRTCH26. 
QASG,AX NONSIMCARDS. 
OUSE 5, NONSIMCARDS. 
©XQT ASABS.NONSIM 
OXQT ASABS. NSMPPT 
OFREE 11., 12., 25., 26. 


F I GURE 4 . 1-3 XQTANALYS I S JOB CONTROL F I LE 
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ponent input and output name lists. A job control stream to compile a new com- 
ponent denoted DC and add it to the component library is given by: 


®ASG,T SOURCE. 

ODATAJL SOURCE. 

QFORjS COS I .DC, CORO. DC 


USER FORTRAN SUBROUTINE DC 


<^ND 

@^SG ,A COS 1 . 
@ASG,A CORO. 
©ADD, PL SOURCE. 
@^SG,A CMPLCO. 
@ED,U CMPLCO. 
ADD SOURCE. 
EXIT 


if an old component is to be updated, then one can edit the source code on 
CMPLCO and recompile entirely, or copy the edited subroutine including the 
©FOR, IS control card onto a new file and recompile, A job stream to execute 
the F I LOAD program is given by: 


©DELETE, C FILOADCARDS. 
©\SG,UP FILOADCARDS. 
0DATA,1L FILOADCARDS. 


USER INPUT DATA 
FOR FI LOAD 


©END 

©ASG,A XQTFILOAD. 
mODjPL XQTFILOAD. 
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mwcmwQ PAaE blank im nuiSBi 


@ASG,AX FSRO. 

OPREP FSRO, 

@ASG,AX WiAPFSSl. 

@ASG,AX FIL0AD4. 

©MAP, I AAAPFSSI ,FIL0AD,FIL0AD4. 
IN FSRO.FILOAD 
LIB FSRO. 

END 


FIGURE 4.2-2 AWPFILOAD PROCEDURE FILE 


@ASG,AX MGRO. 

©PREP MGRO. 

@ASG,AX MAPMGSI. 

@ASG,AX MGABS. 

©ASG,AX FSRO. 

©PREP FSRO. 

©MAP, I AAAPMGSI. EASY, MGABS. EASY 
IN MGRO. EASY 
LIB FSRO., MGRO., FSRO. 

END 


FIGURE 4.2-3 MAPEASY PROCEDURE FILE 


@ASG,AX FSRO. 

©ASG,AX ASRO. 

@ASG,AX CORO, 

©PREP CORO. 

©PREP FSRO. 

©PREP ASRO. 

@ASG,AX AI\APASSI. 

@ASG,AX ASABS. 

©MAP, I AHAPASSI.NONSIM, ASABS. NONSIM 
IN ASRO.NONSIM 
IN ASRO.BLOCKDA 
IN ASRO. MODEL 

LIB FSRO., ASRO., FSRO., CORO. 

END 


FIGURE 4.2-4 AAAPANALYSIS PROCEDURE FILE 


@ASG,AX FSRO. 

@ASG,AX ASRO. 

OPREP FSRO. 

©PREP ASRO. 

@ASG,AX MAPASSI . 

@ASG,AX ASABS. 

mAP,\ MAPASS 1 . NSMPPT , ASABS . NS'v\PPT 
IN ASRO.NSMPPT 
LIB FSRO., ASRO., FSRO. 

END 


FIGURE 4.2-5 MPNSMPPT PROCEDURE FILE 
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4. CAN'T IDENTIFY xxx VALUE WILL BE IGNORED. 


This will result in not setting the quantity intended by xxx to its new 
value. Check for spelling of xxx or for missing delimiters. 

5. CAN'T INTERPRET xxx 

The phrase xxx cannot be recognized as a valid program command, program 
name, or program value. Check spelling of xxx or for missing delimiters. 

6. nnn EXCEEDS THE ALLOWABLE INDEX RANGE FOR xxx THIS QUANTITY WILL NOT 
BE DEFINED 

The number nnn was outside the allowable range of states, rates, vari- 
ables, or parameters. Therefore, the name xxx cannot be assigned as a 
name for the nnnth state, raie, variable or parameter. 

7. NON-ALPHA NAAAE ON THIS CARD xxx. WILL IGNORE THIS CARD. 

The table inputs routine expected an alphanumeric table name but encoun- 
tered a numeric valu>i on the data card printed. Check the sequence and 
number of tabular data cards to assure that they match those required 
by the model's tables and table input formats. See Section 3.1^2 for 
correct formats. 

8. NON-NUMERIC DATA ON THIS CARD xxx. WILL READ NEXT TABLE 

The table input routine expected a numeric value but encountered an alpha- 
numeric name on the data card printed. Check that the sequence and number 
of tabular data cards matches the model 's tables and table input formats. 
See Section 3.1.2 for correct formats. 
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9. nnn PRIMARY and xxX SECONDARY INDEPENDENT VARIABLE POINTS EXCEEDS THE 
zzz WORD STORAGE LIMIT FOR THE FOLLOWING TABLE. SOME DATA WILL BE LOST. 

The maximum amount of data allowed for each table is given In the Input 
Requirements List produced by the Model Generation program. Check that 
given data falls within this limit or for data card errors. 

5.2 DIAGNOSTIC MESSAGES FOR LIBRARY COMPONENTS 

A diagnostic message associated to a component is printed when a variable 
gets out of bounds during analysis. Adjustment of component parameters may 
be necessary. 

In component alphabetical order, these diagnostic messages are: 

AD: INPUT POWER xxxx TOO HIGH RELATIVE TO ADMITTANCE xxxx AND RATED VOLTAGE 

XXX 

ADMITTANCE POWER LOSS xxxx EXCEEDS INPUT POWER xxxx 

BA: POWER REQUEST xxxx EXCEEDS BATTERY CAPABILITY. CHECK VC, VO, AND RT. 

BN: BN INLET AIR AV\SS FLOW RATE xxxx GREATER THAN MAXIMUM ALLOWABLE xxXX 

CO: MAX ITERATIONS FOR COMPRESSOR EFFICIENCY. NP, XNP, RS = xxxx, XXXX, 

xxxx 

CS: CS STORAGE TEMPERATURE xxxx GREATER THAN ALLOWABLE xxxx 

CS MSS OF AIR IN STORAGE xxxx BELOW MINIMUM ALLOWABLE xxxx 
CS MASS OF AIR IN STORAGE xxxx EXCEEDS MAXIMUM ALLOWABLE xxxx 

FL: FLYWHEEL POWER LOSS xxxx EXCEEDS CHARGING POWER xxxx 

FLYWHEEL LOSS xxxx EXCEEDS DISCHARGING POWER xxxx 
FLYWHEEL CLUTCH LOSS xxxx EXCEEDS MAXIMUM INPUT POWER xxxx 
FLYWHEEL CLUTCH LOSS XXXX EXCEEDS DELIVERABLE POWER xxxx 
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FLYWHEEL KINETIC ENERGY xxxx EXCEEDS CAPACITY xxxx 

FLYWHEEL KINETIC ENERGY xxxx FALLS BELOW MINIM REQUIREMENT xxxx 

GE; GENERATOR OUTPUT EXCEEDS RATED POWER 

HS: HS INLET MASS FLOW RATE xxxx OR OUTLET A^ASS FLOW RATE xxxx IS GREATER 

THAN MAXWWJM xxxx 

HS RESERVOIR VOLUME xxxx EXCEEDED MAXIMUM ALLOWABLE xxxx 
HS RESERVOIR VOLUME XXXX DROPPED BELOW MINIMUM xxxx 

HT; HT TURBINE CHARACTERISTIC PARAMETER OUT OF RANGE 

HT INLET MASS FLOW RATE xxxx GREATER THAN MAXIMUM DESIGN VALUE 

HX; HX EXIT TEMPERATURE xxxx GREATER THAN AAAXIMUM ALLOWABLE xxxx 

IV: IV POWER LOSS xxxx EXCEEDS INPUT POWER xxxx CHECK RATED DC VOLTAGE VDC 

MB: WARNING-DIVISOR IN MB EQUALS 0 ., HAS BEEN SET =1. 

MO: MOTOR INPUT POWER xxxx .GT. RATED INPUT POWER XXXX 

MOTOR SLIP xxxx EXCEEDS RATED POWER SLIP XXXX 
STATOR RESISTANCE XXXX OR DAMPING XXXX TOO HIGH FOR MOTOR 

RE: RE POWER LOSS XXXX EXCEEDS INPUT POWER XXXX 

RE, AC INPUT POWER XXXX TOO LARGE IN RELATION TO TRANSFORMER REACTANCE 
XXXX AND RATED AC VOLTAGE xxxx 

TA: FILE DATA OUT OF RANGE. INITIAL VALUE = xxxx ON UNIT XX 

TIME POINT PAST TABLE RANGE. LAST VALUE = xxxx ON UNIT xx 
READ ERROR OR END OF FILE ON UNIT XX 
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TR: TRANSMISSION POWER LOSS xxxx EXCEEDS INPUT xxxx 

TRANSMISSION POWER LOSS xxxx EXCEEDS MAXIAAUM INPUT POWER 

TS: TS WORKING FLUID FLOW RATE xxxx GREATER THAN MAXIMUM ALLOWED xxxx 

TS INPUT POWER xxxx GREATER THAN AAAXIMUM ALLOWED CHARGE RATE xxxx 
TS STORAGE TEMPERATURE xxxx OUTSIDE MINIMUM xxxx OR AftAXIAAUM xxxx 

TU: TURBINE BACK PRESSURE xxxx GREATER THAN STORAGE VESSEL PRESSURE xxxx 
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6.0 CREATION OF NEW LIBRARY COMPONENTS 


The addition of new standard components to the SlMWEST library involves two 
steps. The first is the design of the component. This design must conform 
to certain design conventions if the new component is to be compatible with 
existing components. Section 6.1 discusses these design conventions and the 
addition of the component subroutine to the SlMWEST library. The second step 
involves the addition of the new component's input and output description 
to the SlMWEST file M18, File M18 is used by the precompiller to generate 
subroutine calling sequences for the library components. Section 6.2 discuss- 
es the use of the FiLOAD program to accomplish this task. 

6.1 LIBRARY COMPONENT CODING 

6.1.1 Component Cal I Sequence 

The items in the component subroutine call sequence must be arranged in the 
fo I 1 owi ng order: 

1, Tables 

2, Output Quantities 

3, Input Quantities 

Tables or inputs may not be present in the subrouti ne ca 1 1 sequence. However 
those items that are present must follow the sequence given above. 

Dummy argument names tor the call sequence quantities that are used within 
each subroutine should be chosen to match the physical quantity names placed 
in the input, output, and table name I ists. Exceptions to this policy may 
be made when integer names (names starting with I through N) must be avoided 
or when additional letters will clarify the name. 

The subroutine name must contain only two characters and must not duplicate 
the name of an existing standard component. 
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Tables 


The table arrays must be dimensioned within the component subroutine. They 
must be dimensioned with only one subscript; e.g. DIMENSION TABLE (1). When 
table data is passed to the component subroutine^ the first word in the ar- 
ray contains the name of the table. The second word contains the number of 
values given for the primary independent variable. The third word contains 
the number of values given for the secondary independent variable. Both of 
these numbers are stored as REAL quantities and must be converted to INTEGER 
before they can be used as a subscript. This can be done by a statement such 
as : 


NX = TABLE (2) - number of primary independent variables 
NZ = TABLE (3) - number of secondary independent variables 

If there is a secondary independent variable, the secondary independent vari- 
able array will begin with the fourth word in the array. Thus if this array 
is designated as z(l), z(2),...., then: 

z(l) = TABLE (4-) 
z(2) = TABLE (5) 
z(3) = TABLE (6) 


The primary Independent variable array begins with word NZ + 4. Thus if this 
array is designated as X (1), X(2) , , then: 

X(l) = TABLE (NZ + 4) 

X(2) = TABLE (NZ + 5) 
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The dependent variable array begins with word NX + 4 if there is no second- 
ary independent variable. Thus if this array is designated as Y(l), Y(2),..., 
then; 

Y(l) = TABLE (NX + 4) 

Y(2) = TABLE (NX 5) 


If there is a secondary independent variable array and this array was desig- 
nated Y (I with I <NX and 1^ NZ, then Y(I,J) would be related to 
the table array as: 

Y(I,J) = TABLE(NX+NZ+3+l+( J-1)*NX) 

Normally the individual elements in the table are not used di recti y but are 
passed to a table look-up routine. In this case the starting address of the 
X, Y, and Z tables would be referred to as; 

Z(l) = TABLE (4) secondary independent variable table 

X(l) = TABLE (NZ+4) primary independent variable table 

Y(l,l) = TABLE (NX+NZ+4) dependent variable table 

if more than one table is used by a component subroutine, the table names 
must appear in the same sequence in the table nams list stored in M18 file 
as In the subroutine call sequence. 

Example 6.1; Given a component, HA, that requires the tables TPH and TPC 
as an inputs. The cai I sequence of this subroutine would appear as; 

SUBROUTINE HA(TPH, TPC,... 
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Output Quantities 


The term "output quantity" refers to information that is calculated and then 
"out put " by a particular component subroutine. This is not to be confused 
with the "out i et quantities" of the component. The outlet quantities are as- 
sociated with a particular component port as a result of assigning a posi- 
tive direction ot power or information flow through the component. Some out- 
let quantities may be caicuiated by the component subroutine and thus become 
output quantities of that component. While other outlet quantities may be 
furnished to the component subroutine and thus become input quantities to 
that subroutine. 

The output quantities should be grouped together by port. That is, all outlet, 
(port two quantities), then all inlet, (port one quantities), etc. If a com- 
ponent has multiple outlet ports, the output quantities associated with each 
outlet port should be grouped together and listed before any inlet port out- 
put quantities. 

Certain output quantities may be internal to the component and not associated 
with any port. In other cases the same output quanti ty may be associated 
with several ports. In such cases, no port designation is assigned to the 
output quantity. Such quantities are referred to as "universal port" quanti- 
ties. As such, they are allowed to connect to any other similar physical 
quantity regardless of the input quantities port number. This is not the 
case for quanti t ies wi th speci f 1 ed port numbers. Once a connection has been 
made between an input and output quantity with given port numbers, only con- 
nections of matching physical quant i t i es wi th those port numbers occur. Man- 
ual override of thi s provi sion can be made by specifying particular physical 
quantity connections. 

Three quantities are required for each state variable output* The first is 
the state variable, the second is the state variable derivative, (rate). 
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and the third Is an integer quantity, the integrator control variable. 


Example; Given a component, HA, with the following outputs; 


Physical Quantity 
T 
T 
P 
P 


Outlet Ports 


Port No, 

3 

4 

1 (State Variable) 1 

2 (State Vari abl e) J 


I nl et Ports 


The call sequence arguments for these outputs would be: 

SUBROUT I NE HA ( TPH, TPC , T3, T4, PI, PIDOT, 1 PI , P2, P2D0T, 1 P2, . . . 

I nput Ouanti ties 

The term "input quantity" refers to information that is provided to a par- 
ticular component subroutine. This Is not be be confused with the "inlet 
quantities" of the component. The inlet quantities are associated with a 
particular component port as a result of assigning a positive direction of 
power or information, through the component. Some inlet quantities may be 
calculated by the component subroutine and thus become output quantities 
of that component, while other inlet quantities may be furnished to the com- 
ponent subroutine and thus become input quantities to that subroutine. 

The input quantities should be grouped together by port. That is, all inlet, 
(port one quantities), then all outlet, (port two quantities), etc. Port 
designations for two port components which have the same physical quantity 
on both inlet and outlet will be; port 1 for upstream or inlet port and 
port 2 for downstream or outlet port. It is important that the inlet port 
quantities be listed before any outlet port quantities. If a component has 
multiple inlet ports, the input quantities associated with each inlet port 
should be grouped together and listed before any outlet port quantities. 
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Certain input quantities may be internal to the component and not associat- 
ed wl th any port. In other cases the same Input quantity may be associated 
with several ports. In such cases, no port designation is assigned to the 
input quantity. Such quantities are referred to as "universal port" quanti- 
ties. As such, they are allowed to connect to any other similar physical quan- 
tity regardless of the output quantities port number. This is not the case 
for quantities with specified port numbers. Once a connection has been made 
between an Input and output quantity with given port numbers, only connections 
of matching physical quantities with those port numbers occur. Manual over- 
ride of this provision can be made by specifying particular physical quantity 
connections. 

Example: Given the component HA described in the above example, with the 

following inputs: 


Physical Quantity 
T 
T 
P 
P 

AKH 


Port No. 


1 

2 

< 

3 

4 


Inlet Ports 
Outlet Ports 


(universal port quantity) 


The call sequence for these inputs would follow the output arguments, giving 
the complete call sequence: 


SUBROUT I NE HA ( TPH , TPC, T3, T4, PI , PIDOT, I PI , P2, P2D0T, I P2 , T1 , T2 , P3, P4, AKH ) 


The call sequence for standard component subroutines should follow the or- 
der shown in Table 6.1-1. 

6.1,2 Additions and Modi fi cations to Component Library 


Section 4.2 describes the job control procedures to add a new component to 
the component library, compile the source code that describes the new compo- 
nent and add the relocatable binaries to the component library CORO. 
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TABLE 6.1-1 


COMPONENT SUBROUTINE 
CALL SEQUENCE ORDER 


1. Tables 

2. Out put- Quantities 

2.1 All Out i et Port Quantities* 

2.2 All In let Port Quantities* (feedback variables) 

2.3 All Other Output Quantities 

3. I nput Quantities 

3.1 All In let Port Quantities* 

3.2 All Out let Port Quantities* (feedback variables) 

3.3 AM Other Input Quantities 


* Group quantities with the same port number together. If multiple inlet 
or outlet ports exist, arrange port quantities in order of increasing port 
numbers. 
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t5.1.5 Coding Conventions 


There are several coding rules which apply to any component coded. First 
of all, the calling sequence must be ordered so that it agrees with that 
constructed from the Fiioad program. Hence the calling sequence begins with 
table arrays, is followed by output variables, and then by input parameters. 
State variables require three sequential parameters in the calling sequence; 
the state variable, the state derivative, and an integer valued integration 
control. With the exception of the latter, all parameters in the calling 
sequence are real valued. In general one cannot use any local variables or 
arrays to store information from call to call since there may be several 
components in the model which call a given subroutine. In other words, local 
variables can only be used for scratch calculations, unless the computed 
information is based on COaVWDN block Inputs. 

Most of the coding conventions and techniques used are illustrated in Fig- 
ures 6.1-1 and 6.1-2. Figure 6.1-1 shows the code for the simple power curve 
component WP. Following the call sequence are a number of comment cards in- 
cluding the component purpose and calling sequence. The table PW is treated 
as a single dimension Fortran array. Fewer output Is obtained from the table 
interpolation subroutine TBLUl. (Use of the table interpolation routines 
TBLUl and TBLU2 is explained in Section 2.1). The rest of the code shows 
the conventions used to compute output statistics and add costs for the cost 
summary. iiVIPL Is an integer variable which indicates the iteration control 
status: 

IMPL = 0 the first time in a simulation that the model (EQMO) is 
called 

= 1 i f more iterations and hence subroutine calls are expect- 
ed at a given time step 
>1 the final Iteration through the model. 

Hence when IMPL =0, subroutine variables are initialized, default values 
are assigned, etc. The statistics are only updated at the final iteration 
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quality 


OOlOO 

. 1*. 

OolOl 

2* 

OOlOl 

3* 

OOlOl ... 

4*, - 

001 01 

5* 

OOlOl 

6* 

OOlOl 

7*-. 

OOlO! 

a* 

OOlOl 

9* 


.CWP 

c 

.c 
c 
c 
c 
c 
c 


SUBROUTINE WP ( PW, 8 1 , PO# AMI , AMP » SP < CO, VO/ W VO , W VU ^ V » CC I , CM I , EC ) 

PURPOSE. MODEL THE i*IND TURBINE AND GENERATOR USING A POWER CURVE 

written by A.W. warren version 1/ MARCH 3 1977 

CALL SEQUENCE 

tables 


OolOl ...... 

10*. 

C.. 

... .PH... 

. ** 

WIND GENERATION POWER IN KW 

00 1 0 1 

11* 

c 




ooioi 

12a 

c 

OUTPUTS 



QOlOl 

11* .. 

c 

.... 01 

w 

OUTPUT BUS CURRENT/ AMPS 

OOlOl 

14* 

c 

PO 

■t 

POWER OUTPUT, KW 

OOlOl 

lb* 

c 

AMI 


MAX, OBSERVED CURRENT, AMPS 

00101 

1 6*_ 


AMP 

« 

MAX. OBSERVED POWER, KW ... .. 

00 101 

17* 

c 

3P 

» 

total OUTPUT ENERGY, KWH 

OOlOl 

16* 

c 

cu 

w 

operating COST, S 

OOl 01 - 

19*. 

C-. 

• 


- , - . - 

OOlOl 

20* 

c 

INPUTS 



00101 

2 1 * 

c 

VO 

• 

RATED BUS VOLTAGE, VOLTS 

001 01 

22* 

c_ 

WVO 


POWER CUTIN VELOCITY, MPH . 

oolol 

23* 

c 

wvi 

IP 

POWER CUTOUT VELOCITY, MPH 

OOlOl 

24* 

c 

w V 

M 

wl.MD VELOCITY, MPH 

00101 

25* 

- .C -j 

CCI, 

«■ 

CAPITOL COST / YEAR, 5 

OOlOl 

26* 

c 

CMl 

> 

maintenance COST / year, S 

OOl 01 

27* 

c 

EC 

• 

CONTROL ENERGY RATE, $/HR 

OOlOl .. 

28* 

-C.. 

. ...... 


- - - — ^ 


00103 
001 oa 

00105 


39 * 

30* 

3l*. 


00105 

32 * 

j 00105 

33 * 

1 00105 

34 * 

00106 

35 * 

1 00107 

36 * 

1 0 0 1 1 1 - 

... 37 * 

i 00112 

38 * 

! 00113 

39 * 

00113 -• 

... 40 * 

; 00113 

41 * 

00114 

42 * 

00116 

.... cli* _ — . 

‘ O 0 U 7 


i 00120 

05 * 

; 00121 - 

. . 46 *. - . 

1 00122 

47 * 

j 00123 

48 * 

'00125 

— 49 * ... 

1 00126 

bo* 

[ 00127 

51 * 

• 00130 ■ 

. 52 * 

f OOliO 

53 * 

: ooiii 

54 * 

[. 00133 . 

55 *- . 

! 00134 

56 * 

f 00135 

57 * 

: 00136 

58 * .. 

i 00137 

59 * 

; END FOR 

i 



C 

C 

C- 


C-... 

c 


dimension pw(i) 

COMMON / CiMPL / IMPL 

■COMMON/COST/ CC/CM/COP /CTI«E/ time /C8IMUL/ DUM(6),TINC,TMAX 

POWER output calculations 


PO ■ Oe 

IFCWV.LT.WVO ,0R, WV,GT,WVI) go to 10 

N a PW(2) . . . . » — 

PO a TBLUt(WV,PW(i»),PW(ii + N),l,-N) 

10 BI a P0*1000/V0 

-STATISTICS 

IF (IMPL.GT.O) go to 20 

CO= 0, 

AMI a 0, 

AMP B 0, 

. SP a 0, ■ . 

TMAY1bTHAX*, 99999 
20 IFnHPL.LE.n RETURN 
AMI a AMAXl (AMI/BI) - 
AMP a AHAXl (AMPjPO) 

SP a SP * PO*,5*TINC 

■ - . COa CU ♦ EC*,5*TINC - - .. 

COST SUMMATION 
IF( TlHE.LT.TMAXl) RETURN 

CC a CC + CCI ^ 

C* a CM + CHI 
CQPa COP ♦.CO 

..... RETURN . . -... ... .. 

END 
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FIGURE 6,1-1 SAMPLE COMPONENT CODE 
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ODIOI 

19. 

OOlOl 
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ODIOI 
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00101 

22* 
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00101 
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OOlOl 
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32. 
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33. 
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35. 

OOlOl 

3b. 

oolos 

37. 

oolou 

38* 

OOtOR 

39* 

OOlOR 

(io. 

OOlOS 

91. 

00107 

92. 

00110 

9J. 

OOtll 

99* 

00) IS 

95* 

oous 

U6« 

00117 

97* 

00121 

98* 

0012S 

99* 

0012S 

so. 

0012P 

31* 

00127 

S2» 

Oolso 

S3. 

ooiso 

S9. 

ooiso 

S5* 

oeiso 

Sb. 

OOISI 

57. 

OOISS 

S8. 

OOISR 

S9* 

OOISS 

80* 

oolSk 

81* 

OOtST, 

82* 

001S7 

8 j« 

OOIRO 

69. 

OOIRI 

85* 

00IR2 

8b* 

OOIRS 

bT* 

OOIRE 

80. 

OOlRk 

89. 

OOIR7 

70. 

OOISI 

7l* 

00IS2 

72. 

OOISS 

73* 

OOISR 

79. 

OOISR 

75* 

OOISR 

78* 

OOISS 

77. 

00IS7 

78. 

OOISO 

79. 

oou« 

80* 

OOISO 

•1* 

OOISI 

• 2* 

OOISS 

11* 

OOlsR 

89. 

OOISS 

6S« 

OOISS 

8b. 

OOISS 

End For 

17* 


cs( 


1 tPl.P«I.CCI,C'<I) 


pjii»r)sE “SDiL *c i.-JOUcrnN oeseratoh 

“Efuoo “ECHANtCAL AHI) ELECTRICAL kfF ICIE'iC ITS ahe USED TO CIJTPUTE 

3UTPUI PUaEw, SPELU t!> CO“PllTCU ASaUHINC PO»L» IS 

p>OPO«TUI>-AL to slip. 


•nITTEN 8T A,<, BARREN 


VERSION t, HARCh IS )«77 


CALL SECOENCE 
OUTPUTS 

PJ • OUTPUT PO«E», <R 
EE -electrical EPFICIENCT 
RS • ROTOR SPEED, PPM 
PL • P[T*ER LOSS, <■ 

EPJ - OUTPUT PRODUCT EFPICIEncy 

PPZ • PAAlPUM OUTPUT POnER, KN 

PRR . HA«, UPSERVE: 3UT“UT po-er / rated po-er 

SP • TOTAL OUTPUT EVER6T, KWH 

INPUTS 

PI • Input porcri ra 

RAP . PATID OUTPUT PiRER, K» 

»3T - SVNCHRONOUS POIOR SPEED, RPHN 
RAS - PATH) PO*EP SLIP (DLPaulV » ,05) 

DA • UEChANICAL DiHPIs-a, JUUlE-3'EC 
SR . SIATUR resistance, ORnS 
VO • RATiD PUS voltade, volt;i 
EP i ■ Input Product epucienct 

PMl ■ "A»1«I)M INH.JI PI-EH, P« 

CCI . CiPIIAL CQST/rEAP, I 

Clil . naintenarce cpst/tEar, s 

COMMON UCINPL/ I“PL,ICNT /CTI“E/ TI“£ 

COP-ON /CDST/ CC,Cm,C 0.CV /CSHUL/ DUK(k),TlNC, that 
Initialization 

in IMPL.ST.OJ to TO ID 
EPP A i, 

T“A»t t TNAT, ,RNN«9 
IFIHSr.tU, ,9NT9D> R3T • ISDO, 

IFIRAS.ED, ,9V9NN) PAS a .OS 
IFtOA .ED, .R99TV) DA Ml), 

IFtSR .ED, ,99999) SR J »,ll/RAp 
IFCnO .ED, ,99999) VO a ROD, 


,99999) PHI a l.tlO 


IFCPHl.tD, 

PHN aO.O 
SP an.o 

RATI a RaPaiijoI),/vo 

EE a RAP/IRAP , SR, , 00 1 a BA r !• aj ] 


CONFUTE ROTOR SPEED AND OUTPUT POatR 


IF! PI. ST, 0.) GO TO 20 
P? ao.n 
PL aO.O 
RS a R5T 
Co TO SO 


) A a RAP/(EE,RAS) 

a a HS»/( A , «SYA,2 ,d*,i,0966E-S) 

RS a Ha (A , PI) 

Pp a RAP,(HS/NSr -l-.T/HAS 

IF (P2,GT,NAP, AND, 1-PL.f ;), 2 ) aRir£(P,)00) 

I FoRnAIIIhO. UOK.STHliENERATpR OUTPUT EXCEEDS RATED POaER /) 

IFtP2.ST.RAP .AND, lNPL.Ea,2)ICNralCNT»l 

PL a PI . P2 

EFF a P2/P1 

EF2 a EFl«EFF 

PN2 a AHINKRAP, PniaLFF) 

STATISTICS 

IFIIHPL.LE.I) RETURN 
P-N a AHAIlIPfN, P2/RAP) 

SP a SP > P2a,S,tiNC 

COST SDiaATION 
TFT TIhE,LT.T“A»1) return 
CC a CC « CCI 
C" ■ CH » CHI 

4>‘TliUM 

iso 

FIGURE 6.1-2 SAMPLE COMPONENT CODE 
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when the model has presumably attained steady state values. Finally, the costs 
are added up when the simulation has reached the maximum time point. Capital 
costs, maintenance costs, and operating costs are stored in the first three 
locations of common block COST. 

Figure 6.1-2 shows the code for the generator component GE. The program auto- 
matically assigns default parameters « ,99999. Hence, when IfAPL = 0 component 
dependent default values are assigned whenever the .99999 default is assumed. 

The code near Format statement' 100 shows a typicaj diagnostic printout. The 
diagnostic is only printed if IWIPL = 2 since we need only diagnose errors 
at the final iteration. Note that a counter ICNT Is updated each time a diag- 
nostic Is printed. It is stored in the second location of common block CIMPL 
and is mon i tored to see i f di agnost i c print lines exceeds DU NES . 1 f so, 

IMPL is set to 3 the final Iteration, so that no further diagnostics are 
printed. The last convention observed here concerns the use of the maximum 
power and product efficiency variables denoted PMl, EFl, PM2, EF2. These 
variables are used to communicate information to the logic components PD 
and PA. The efficiency variable EFF is defined as the ratio of output power 
to input power except when Pi = 0. in this case the old EFF value is used, 
but in any case EFF = 0 must be avoided since this would communicate a zero 
efficiency to a logic device which would then generate an infinite request. 

It is seen that EF2 and PM2 represent the joint efficiency and maximum power 
at the output port as a consequence of the rated generator power and computed 
input/output efficiency. 

Storage devices have in addition to the above, certain conventions to com- 
municate with the logic components. An input parameter REl for port 1 request 
is used to initiate power discharge from storage. An output variable RE2 for 
port 2 request Is used to communicate a maximum charge rate request and is 
usually computed by 

RE2 = MIN (MPl, RAP) /EFl 

where MPl and EFl are the input maximum power and input product efficiency, 
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and RAP denotes tha maximum storage charging rate, A priority Interrupt INT 
should also be defined so that INT « 1» when storage Is amply or at a minimum, 
INT » 0. H no Interrupt Is required, and INT - -1. at full storage capacity. 
The state of storage is normally a state variable so that the code computes 
the state derivative at each time point and lets the Integrator update the 
state at each time point. 

6.2 FlUQAD PROGRAM 

In addition to placing the subroutine representing the new standard compo- 
nent in the component library, descriptions of the inputs, outputs, and tables 
required by the new component must bo added to the permanent file, MIB., These 
lists are used by the Model Generation program to direct the connection of 
component Inputs and outputs. The program FI LOAD Is provided to perform any 
of the- following tasks: 

1. Add new Input, output, or fable name lists. 

2. Replace existing Input, output or table name lists. 

3. Ronovo all name lists for specified components. 

4. Dump contents of M'iB file onto Tape 9 In Input format. 

6.2.1 FlLOAD program Conyiands 

The FlLOAD program wl 11 recognize the fol lowing commands. 

LIST STANDARD COMPONENTS 

The LIST COMPONENTS contnand causes the program to print the Input, output, 
and table lists for all components modified or added to the M18 flic. If this 
command Is not given the program will merely give a message stating the name 
of the new components being added to the file. 

PURGE 


fi2 
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The PURGE command can be used to remove a component from the M18 file. The 
PURGE Gonwand is followed by the names of the components to be purged. The 
command and the component names must be separated by one of the standard de- 
limiters; i.e. [ ] three or more blanks, [ /] comma, [=] equal sign, [0] left 
or right parentheses. 

Example 6.3: PURGE = CM, TB, OB 

This conmand would remove all lists for the CM, TB, and OB components from 
the name I i st f i I e. 

SYMBOL 

The SYMBOL command may be used to designate the type of symbol that is to 
appear for each standard component in the llnepr inter drawn model schematic 
diagram. The SYMBOL command is followed by the names of the components each 
followed by a symbol number. The symbol numbers and their associated symbols 
are shown in Figure 6.2-1. The SYMBOL command, component names, and symbol 
numbers are separated by standard del imi ters. 

Example: SYMBOL, CO - 100, SH 200, lU = 300, OC = 400 

if a symbol number is not specified for a component the default symbol of 
a square box wi 1 1 be used. 

DUMP FILE 

The DUMP FILE command causes the FlLOAD program to dump the contents of the 
M18 file onto DUMPF9, in the input format of the FlLOAD program. Thus for 
each standard component, a list of inputs, outputs, and tables will be pro- 
duced. This data will be preceded by the command NEW FILE described below. 
This file may be edited to modify the input, output or tables description 
of any existing standard component or to derive a new standard component 
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description from an existing one. The results of such an editing would then 
serve as input data to a subsequent run of the FI LOAD program. Unless it is 
intended to purge the M18 file and start anew, the NEW FILE command at the 
beginning of DUA^PF9 should be removed before the subsequent run of the FILOAD 
program. 

NEW FILE 

The NEW FILE command instructs the FILOAD program to construct a new M18 
file. This command must occur as the first card in a set of data describ- 
ing a completely new AA18 file. Any previous components that may have exist- 
ed on the M18 file are purged by this command. It Is therefore only used 
when installing a complete new M18 file. 

FILE NAAAE 

This command is used to load the file name to be associated with the M18 
file. The current M18 file name is WINDENERGY. This command is used as; 

FILE NAME = WINDENERGY 

6.2.2 Input Name Lists 

Input name lists are identified by the letters INPT following the component 
name. Thus, the input name list for a component DC would be introduced with 
the phrase, DCINPT. This must be followed by a phrase that contains the num- 
ber of names in the input name list. 

The input names are contained on the following data cards, 8 names per card. 
The names must be left adjusted in fields, 10 characters wide. The names 
are placed in Columns 1 through 3 of each field. Column 9 of each field can 
be used to indicate a port number which can be attached to the name to dis- 
tinguish it from other quantities of the same name that occur with the given 


BCS 40180-2 


85 


component. Thus,, to indicate that temperature, T, is an inp^t to port 1, 
the input name list would be: 

Column: 123456789 10 

1 tern : T 1 

This quantity would then be referred to as Tl. 

ExampI e 6.4: 

SWINPT = 3 

IN 1. IN 2.CNT 

(The dots are used here to indicate blank spaces and would not be included 
in an actual data card). 

These two data cards would indicate that the component had 3 Input quan- 
tity names. A quantity IN appears at port 1, and is to be referred to as 
INI. A quantity IN appears at port 2, and is to be referred to as IN2. A 
third input quantity CNT has no port designation. Note that if a port num- 
ber is to be attached to a quantity name, that name should contain no more 
than 2 characters. 

The sequence of names In the input name list must match the sequence of in- 
put arguments In the component call sequence. 

6,2,3 Output Name Lists 

Output name lists are identified by the letters CXJTP following the component 
nsme. Thus, the output name list for a component DC would be i ntroduced wi th 
the phrase, DCOUTP . This must be followed by a phrase that contains the num- 
ber of nalties in the output name list. 

06 
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The output names are contained on the following data cards, 8 names per card. 
The names must be left adjusted in fields 10 characters wide. The names are 
placed in Columns 1 through 3 of each field. Column 9 of each field can be 
used to introduce a port number which can be attached to the name to dis- 
tinguish It from other quantities of the same name that occur with the given 
component. If the output quantity is a state variable, this must be indi- 
cated by placing S in Column 10 of the field. Thus, if power P |s a state 
variable output quantity at port 2, the output name list would be: 

Column: 123456 789 10 

I tern: P 2 5 

This quantity would then be referred to as P2, 

Example 6.5: 

TZOUTP = 3 

X.......1SX 2S0UT 

(The dots are used here to indicate blank spaces, and would not be included 
on an actual data card). 

These two data cards would indicate that the component TZ had 3 output quan- 
tity names. A quantity X appears at port 1. This is a state variable, and 
will be referred to as XI. A quantity X Is also a state variable that appears 
at port 2. It will be referred to as X2. The quantity OUT is an output vari- 
able, not a state variable, and does not have a port number associated with 
it. Note, that if a port number is to be attached to a quantity name that 
name should contain no more than 2 characters. These two characters plus 
the port number will reach the maximum number of 3 characters in a quantity 
name . 

The sequence of names in the output name list must match the sequence of 
output arguments in the component call sequence. However, whereas three argu- 
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merits are provided for each state in the subroutine call sequence, only one 
name is included in the output name list. 

6.2.4 Table Name Lists 

Table name lists are identified by the letters TABS, following the component 
name. Thus, the table name 1 ist for a component CM would be introduced with 
the phrase CMTABS. This must be followed by a phrase containing the number 
of names in the table name list. The table names are contained in the follow- 
ing cards, one table name per card . The name is located in the first 3 col- 
umns of the card. It must be accompanied by the maximum dimension that is 
to be provided for this table. This number must be given in columns 4 through 
10 and should have a decimal point given. For single independent variable 
tables this number must be negative. For tables with two independent vari- 
ables, this number must be positive. 

Example: 

CMTABS =3 
TAM 53. 

TAB 43. 

TCM -27. 

These four data cards would indicate that the component CM had 3 tables. 

The first two tables TAM and TAB have two independent variables each, as 
indicated by the positive dimension numbers. The table TCM has only one in- 
dependent variable, as indicated by the negative dimension number. 53, 43, 
and 27 words of storage are to be provided for tables TAM, TAB, and TCM re- 
spectively. The maximum storage Is related to the maximum number of primary, 
NX, and secondary, NZ, independent variables by: 

MAX = 3 + NX+NZ+NX-^^NZ for tables with two independent variables 
A\AX - 3 + 2-^X for tables with one independent variable 
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7.0 LIBRARY COMPONENT DESCRIPTIONS 


This section describes the mathematical algorithms and input/output struc- 
ture of the SlMWEST library components. Each component writeup contains a 
brief textual description of the algorithms, a mathematical expression sum- 
marizing its function, a list of input and output variables, and a descrip- 
tion of the calculation sequence and logic used In the model . A figure is 
provided which shows the nominal input and output connections, and the state 
variables of each component. 

There are a number of features and conventions in the component descriptions 
which require some elaboration- These are briefly summarized below. 

7a. INPUT/OUTPUT NAME LISTS 

A potent ia I I y confus ing factor is the way port numbers on input parameters 
and output variables are designated. On the model generation Input cards the 
name of the physical quantity and the port number is separated by a comma. 

For example, the power variable with port designation 1 is denoted P,l. In 
defining input to the simulation program, this same variable would be denoted 
Pi. To emphasize the distinction between the physical quantities and port 
numbers, they are listed separately in the name lists of the component write- 
ups. For example, P 1 in the name list denotes the power variable (or parame- 
ter) with port designation 1 even though in other parts of the text it may 
simply be denoted Pi. 

Another convention in the name lists Is that the alphabetic symbol 'O' Is 
shown as 0 to distinguish this symbol from a zero. Elsewhere in the text sym-- 
bols such as V0 may be referred to as VO. 
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7b. INPUT PARAMETER SPECIFICATION 


All input parameters are associated with default values. Many of the parame- 
ters have default values denoted in the parameter description by the letter 
D. For example in the Battery component the default value for terminal re- 
sistance, RT, is D = .001 ohms. All input parameters for which a default value 
is not so specified has a default value of .99999. Default values are intended 
to enable users to put models together quickly by specifying a minimum of 
input data. Users need only specify detailed parameter values for those com- 
ponents of current interest. One must be careful using this approach since 
the operating characteristics and efficiency of a lOkw rated device may for 
example be quite different than for a lOOkw device. 

Any user specified input parameter can be driven by one or two dimension ta- 
ble lookups using the FU and FV components. This enables the user to build 
more detailed models using time or other output variables to drive the ta- 
bles. For example, if one needs to specify cost of peak load generation to 
the utility component as a function of peak load request, then one adds FU 
as an input to UT and specifies load request as an input connection to FU. 

The desired function table is then input to FU. 

it may be noted that not ai I of the components have maintenance or operating 
cost inputs. Thus, whenever these costs are important, one can aggregate such 
costs and input lumped costs to the model. For example, the maintenance cost 
of the hydro storage system may include maintenance costs for the pump and 
turbine. 

7c. COMPONENT LOGIC 

1 n construct i ng SIMWEST components, we have adopted several conventions to 
aid communication with the logic components. All physical components distrib- 
uting power are given two input parameters EF and MP {port 1) and two output 
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variables EF and MP (porf 2). The output EF is the product efficiency of 
all components in the distribution subsystem up to and including the given 
component, and AAP is the maximum power deliverable at the output of the com- 
ponent. Each storage component has in addition a power request input denoted 
RE (port 1), a power request output denoted RE (port 2), and a priority in- 
terrupt flag denoted INT. 

Figure 7.0 shows the logic and physical variable connections for power flow 
in and out of a hydro reservoir. Power flows from the power divider to the 
pump at a rate not to exceed the request RE from HS. The HS request is compu 
ted by dividing the input maximum power by the input (or pump) efficiency 

EF. Hence, the maximum power flowing to HS cann-’t exceed RE-’fEF - MP. Similar 

ly, the input request to HS Is computed by the PA component so as not to ex- 
ceed the maximum input power A\P divided by EF (turbine efficiency). Hence, 

the power that flows to PA cannot exceed REtfEF = input maximum power. 

When the hydro reservoir is empty, the interrupt flag is turned on and the 
priority sequence is changed to 1 so that the reservoir is given access to 
power flowing into the divider. 
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7.1 ADMITTANCE 



POWER (PI) 

INPUT EFFICIENCY 
MAX. INPUT POWER 



POWER (P2) 

ouTPirr EFprcrENCY (ep2) 
MAX, OUTPUT POWER (MP2) 


The admittance mode! can be used to model transmission lines, transformers, 
capacitors or impedance power flows. A primary assumption is that the re- 
active parameters dominate the real parameters so that power transfer angle 
is solely based on reactive values, and power losses are based on the real 
admittance parameters and on power angle. The equation for power loss is 
based upon the following model: 



FIGURE 7.1 ADMITTANCE NETWORK MODEL 

11 \ _ /61 + jBl GM + jBM\ /Vl\ 

12/ \GM + jBM G2 + }B2/ \V2/ 


Where the reactive parameters and do not enter Into the power loss 
calculations. 
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Inputs 

Parameter/Port 

Description 

Ufii-ts 

G1,GM,G2 

Real admittance parameters 

mho 

m 

. . 

Reactive admittance parameter (i^) 

mho 

V0 

Rated voltage magnitude 

vol ts 

P 1 

Input power 

kw 

EF 1 

Input product efficiency 

- 

MP 1 

Maximum input power 

kw 

CC 

Capi tal cost/year 

$ 

Outouts 

Var i ab 1 e/Port 

P 2 

Output power 

kw 

PL 

Power 1 OSS 

kw 

PA 

Power ang 1 e 

deg 

EF 2 

Output product efficiency 

- 

MP 2 

Maximum output power 

kw 


- See next page for User Input to Atode I Transmission I tnes. Transformers 
and Impedances. 
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Transmission Line Input ; 



G1 — 
GM = 
BM = 
where g = 

I = 

U) = 
L = 


G2 = g*£ 

1 / 

line conductance per unit length 
length of line 

frequency in radians/ sec = 120 rr 
line inductance per unit length 


Transformer Input : 

G1 = G2 = GM = 0 
BM = 1/X*h 

where X = reactance in ohms 
h = turns rat lo 

(No power loss modeled with a transformer) 

Impedance Input ; (Includes capacitors and inductors) 

G1 = G2 = -GM = R/(R^+X^) 

BM = X/(R^+X^) 

where R = resistance in ohms 
X = reactance in ohms 

= /u)L for an Inductance L 

\” life for a capacitance C 
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Calculation Sequence 




If Pl^O P2 = PL = PA = 0 and Return 

1) Compute power angle 

If Pl*1000 > COS 6 = 0 and write DIAGNOSTIC 

e = -SlN"^(PmOOO/BM^«V0S 
PA = 9*iao/7r 

cos e= Vl - (Pl*iooo/BMW 0 J 

2) Compute power loss and output power 

PL = V0^(G1+G2+2«GM^K:OS 0)/1OOO 

P2 = PI - PL 

EFF = P2/P1 

I f P2 >0 go to 3) 

write DIAGNOSTIC 

EFF =1. 

3) Efficiency and maximum output power 

EF2 = EFl^FF 

MP2 = MIN(MP1,|bM I -»V0^/1OOO) * EFF 

4) Compute costs 
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40180-2 


o 

LO 


subroutine: ad £NTRY point 000212 


STORAGE USED CODt«l* C0026M ; DATA f 0 » 00DC72; BLANK COBHONE2> OOOOOO 
COKHON BLOCKS 


0003 CIHPL C00QD2 

OOC*l CTIME OOOCOl 

0005 C^IKUL COOOlO 

0Q06 COST COOCOl 


EXTERNAL RErrRFNCES IBLOCK, NANE) 

0007 NWDUC 
0010 N102S 

OCll ASIN 
0012 SORT 
□013 NEP.R3S 


STORAGE ASSIGNMENT IBLOCK, TYPE, RELATIVE LOCATION, NAME) 


□ OCl 


00CC17 

lOL 

OPOl 


000060 

lOOL 

0000 

000006 

108F 

0001 


000076 

200L 

OCOl 


000140 

300L 

□0C3 


EOD027 

30BF 

OCOl 


000162 

400L 

0006 

R OOOOOO 

CCI 

00C5 


OOOOOO 

OUM 

occo 

R 

000005 

EFF 

0003 

1 

CODOOl 

ICNT 

0003 

I 

OOOOOO 

IMPL 

0 000 

000054 

IN JPS 

0000 

R 

000001 

RR 

0 000 

R 

C00D03 

RPC 

0000 

R 

000002 

RR2 

□ coo 

R 

000004 

THETA 

0004 

R odoooo 

TIME 

ODOS 

R 

000007 

TMAX 

ocoo 

R 

OOOOOO 

TMAXl 


COIOO 

1* 

CAO 


COCOQO 

00101 

2* 


subroutine A0IP2,PL,PA,EF2,MP2, G1,GH,62 ,BK ,V0 ,P1 ,EF1 ,HP1 , CCJ 

OOOOOO 

00101 

3* 

C 


CDOOQG 

00101 

4* 

c 

PURPOSE MODEL OF TRANSMISSION LINES, TR ANSFORMERS , 

COC.ODO 

00101 

5* 

c 

CAPACITORS, OR IMPEDANCE POWER LOSS 

OOOOOO 

CO 101 

6* 

c 


QOCOdO 

COlOl 

7* 

c 

METHOD OUTPUT POWER AND POWER LOSS COMPUTED FROM 

cccoco 

C.0101 

e* 

c 

INPUT power 

CCOOOD 

00101 

4* 

c 


CCCGOO 

GClOl 

1C* 

c 

WRITTEN BY Y.K.CHAN VERSION 1, JULY, 1977 

ODLQOO 

00101 

11* 

c 


occooo 

COlOl 

12* 

c 

CALL SEQUENCE 

GOCOOQ 

00101 

13* 

c 

OUTPUTS 

CCCODO 

L'OICI 

14* 

c 

P2 -OUTPUT poker, km 

COODOC 

00101 

15* 

c 

PL -POWER LOSStKW 

OOOOOO 

GDlOl 

16* 

c 

PA -POWER ANGLE, DEG 

CDOOOO 

00101 

17* 

c 

EF2 -OUTPUT PRODUCT EFFICIENCY 

COOOOO 

OOlOl 

18* 

c 

MP2 -MAXIMUM OUTPUT POWER, KU 

CO ocoo 

COlOl 

19* 

c 

INPUTS 

ooccoo 

00101 

20* 

c 

G1,6M,G2 -REAL ADMITTANCE PAR AMCTE RS ,HH 0 

OG LiOO 0 

COlOl 

21* 

c 

PH -reactive admittance PARAMETERS (.RE. 0.5, MHO 

Gcoaoo 
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VO 

a 


T" 



ooiai 

22* 

C 

VO -R6TE0 VOLTAGE M AGNl TUDE , VOLTS 


COOOOO 

00101 

23* 

C 

PI -INPUT POWER, KW 


COODDO 

c-cioi 

24* 

c 

EFl -INPUT PROOUCT EEriCIENCY 


000000 

COlOl 

25* 

c 

KPl -MAXIMUM INPUT POWER,KW 


000000 

GDlOl 

26* 

c 

CC -CAPITAL COST/YEAR, « 


COOdOD 

:oi 3 i 

27* 

c 



OODOCO 

C01C3 

2fl* 


COMMON /CIMPL/IMPL,ICNT/CTIHE/TIME/CSIHUL/DUMm,TKAX 


CCCOCQ 

00103 

2 9* 


X /COST/CCI 


COuCOO 

OCIOI 

3 0* 


REAL PP2,«P1 


CODOQO 

OCljN 

31* 

c 



OOCOOD 

COIOS 

32* 


P2=0. 


CDCOOO 

00 106 

33* 




COCDOO 

:oicb 

34* 


TPAX1=TMAX*.99999 


000000 

CC107 

35* 


IF(P1 .GT.C. ICO TO 10 


L0DC03 

:oin 

36* 


P2 = 0. 


CCC0Q6 

00112 

37* 


PL = C. 


ODCOOT 

C0113 

36* 


PA = C. 


OOCDl C 

0C114 

3v* 


MP2-MP1 


CCODl 1 

OOllS 

40* 


EF2=Eri 


GDCDl 3 

OCllb 

41* 


60 TO 400 


OQDOl 5 

C0116 

42* 

c 



CC0015 

00116 

43* 

c 

COMPUTE power angle 


Q00D15 

00116 

44* 

c 



CCC015 

OOllT 

45* 


10 RP=Pl*1000./CBM*V0*VOl 


00 C 01 7 

CC120 

46* 


HP.2=RP*RH 


00DD25 

roi2i 

47* 


IF(RR2.LE*1.>G0 TO ICO 


C0D027 

0012 3 

46* 


PAr-90. 


000032 

C012M 

49* 


RFC=0. 


0CC034 

00 12 0 

5C* 


IF flHPL.EQ.nuRITF (6,108 }P1«BN,V0 


OCOD35 

D0133 

51* 


1C8 F0PMAT(1HC,13H INPUT POWER ,F12,3,33H TOO HI6H RELATIVE 

TO AOHITTA 

0GCC5G 

00133 

52* 


XNCE ,F12.3,19H AND RATED VOLTAGE tF12.31 


CO CDS C 

0C13<t 

53* 


IF(lKPL.Eq.2IICNT-ICNT*l 


CO0C50 

00136 

54* 


GO TO 2CD 


0D0D56 

00137 

55* 


100 TMCTAr-ASIN(RRl 


C0C060 

CO 140 

56* 


PA=THETA*180./3.14159 


C'0CiC6 3 

001<il 

57* 


RRCrSORT (1,-RR2) 


CCC066 

ccim 

58* 

c 



CCCD66 

C0141 

59* 

c 

COMPUTE POWER LOSS AND OUTPUT POWER 


CQCC66 

C0141 

60* 

c 



000066 

00142 

61* 


200 PL=V0*V0*(Cl-»G2*2.*6H*RRCiri000> 


C00076 

00143 

62* 


P2=P1-PL 


cool 10 

00144 

63* 


EFFr P2/P1 


C00112 

00145 

64* 


IF(P2.GE.O. IGO TO 300 


CC0114 

00147 

65* 


P2=0. 


CCC117 

uDlSO 

66* 


EFF=1. 


CC0120 

C0151 

67* 


IF«IHPL.NE.2IG0 to 3CD 


C0C122 

00153 

66* 


WRITE (6,308 »PL, PI 


C0D12S 

00157 

69* 


308 F0RMAT(1HC,24H ADMITTANCE POWER LOSS ,F12,3,21H EXCEEDS 

INPUT PONE 

000134 

C0157 

70* 


XR ,F12.3I 


0CO134 

C 0160 

71* 


ICNT-ICNT*! 


DPCl 34 

CC160 

72* 

c 



000134 

C0161 

73* 


3 00 EF23EF1 


CD0140 

C01G2 

74* 


IFIP2.C1 .C. IEF2=EF1*EFF 


C0G141 

Q016H 

75* 


HP2=A MIN K MP 1 ,ABS(BM) ♦V0*VQ/1 000,1 *EFF 


G0D14 7 

00164 

76* 

c 



00D14 7 

00165 

77* 


400 IFdMPL.LE.liRCTURN 


D0C162 

00167 

78* 


IF (TIME.LT. THAXl IRETURN 


0001 70 
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D0171 

79# 


CCI=CCI*CC 

GD171 

80* 

C 


00172 

81* 


RfTURN 

00173 

8?* 


€N0 


Q001T7 

GC0177 

C00?C2 

CDQ263 






7.2 TEST FUNCTION GENERATOR 


100 





I nputs 

Paramster/Port 
COD 

Cl 
C2 
C3 
C4 
C5 

Outputs 
Var I ab le/Port 
FO Output variable 

Ca I cu I at i on Sequence 

C0D = 1 F0 = Cl + C2^^IN(C3->f-T + C4) 

2 F0 = Cl + C2)K:0S{C3ifT + C4) 

3 F0 = Cl + exp(-C5tCT) S1N(C5*T + C4) 

4 F0 = Cl + exp{-C5ttT) tt C0S{C3-«-T + C4) 

5 F0 = Cl + C2^tT 

6 F0 = Cl + C2t^exp(-C3*T) 

where: T = TIME 


BCS 40180-2 


Descr ipt i on 

Specifies which analytic function is calcu- 
lated. (See equations below for use of these 
inputs) 
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SUPROUTINE AF ENTRY POINT 0001«»3 

STORAGE USED COOEtll 000166 ; -OA TAtO I 000014; BLANK C0MN0N(2I OOOCOO 
COKMON FLOCKS 
0003 CTIME 000001 

EXTERNAL REFERENCES f BLOCK, NAME! 


0004 

NERR2* 

0005 

SIN 

0CQ6 

COS 

0007 

rxp 

0010 

KERR3S 


STORAGE ASSIGNMENT tBLOCK. TYPE, RELATIVE LOCATION. NAME) 


DOoi 

CDC022 lOL 

0001 

0001 3N 

lOOL 

0001 

000035 

20L 

0001 

ooocsc 

30L 

OCOl 

C00073 

4 0L 

0001 

000116 50L 

0001 

000123 

6GL 

0000 

000001 

INJPS 

0000 

I ooooco 

NCOOE 

0 003 

R 000003 

TIME 


00100 

1* 

CAF 




CDCOOO 


00101 

2* 


SUBROUTINE AFIFO , COO, Cl ,C2 ,C3 ,C4 ,C5 > 



OOCOOC 


00101 

3* 

G 




OOOCOO 


OClOl 

4 • 

C 

PURPOSE - TO SIMULATE ANALYTICAL FUNCTIONS 



000000 


OOlCl 

5* 

C 




OOCDOO 


COlOl 

6» 

C 




ccoooo 


COlOl 

7* 

c 

METHOD - SEE CODING 



OOOCOO 


00101 

8* 

c 




000000 


riojol 

9* 

c 




COOOOD 


00101 

10* 

c 

written by - ADAM LLOYD LATEST 

REVISION 

FEB 76 

CCCDOO 


OClOl 

11* 

c 




ODOPOO 


CClOl 

12* 

c 




cocooo 


00101 

13* 

c 

limitations - NONE 



CODOOC 


20101 

14* 

c 




ccoooo 


GDlOl 

15* 

c 




cooooc 


00101 

16* 

c 

INPUT /OUTPUT LIST 



COOOOC 


CClOl 

17* 

c 




000000 


OClOl 

la* 

c 

FO OUTPUT VARIABLE 

ANY 

output VAR 

COCPU u 


DO 1 01 

19* 

c 

COO CODE IDENTIFYING ANALYTICAL FUNCTION 

— 

INPUT PARAM 

CDCOOO 


COIDI 

20* 

c 

CODEr : 



COODOC 


uoiai 

21* 

c 

1 Cl+CZ^STNICI+TIME^CA) 



CODOOC 


CDlOl 

22* 

c 

2 CI*C2*C0StC3*TIHE*C4) 



CPCOOD 


COIDI 

23* 

c 

3 Cl*C2*EXpt-C5*TlME)*SIN«C3*TIME*C4) 


CCCDOO 


CClOl 

24* 

c 

4 Cl«C2*EXpt-C5*TlME )*C0S(C3*T1ME*C4 ) 


COCOOO 

"Tl 

00101 

25* 

c 

5 C1*C2*TIME 



CDcnoo 

CO 101 

26* 

c 

6 Cl ♦C2*EXPt-C5*TIHr) 



CCOOOO 
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00101 

21 * 

C Cl C0NST4MT INPUTS FOR ABOVE EONS 

; 

INPUT 

PAPA M 

COOCOQ 

COlOl 

28* 

C C2 CONSTANT INPUTS FOR ABOVE EONS 

— 

INPUT 

PARAH 

CCCOOO 

COlOl 

29* 

C C3 CONSTANT INPUTS FOR ABOVE EONS 

— 

INPUT 

PARAM 

cocooc 

CClOl 

30* 

C C4 COI^STANT INPUTS FOR ABOVE EONS 



INPUT 

PARAH 

coccoo 

00101 

31* 

C C5 constant inputs for above eons 

— 

INPUT 

PARAH 

ccoooo 

00103 

32* 

COHNON/CTIME/TIME 




CncODO 

0C104 

33* 

NC00E=C0D 




OOEOOC 

00105 

34* 

GO TO (10,2D»30,40»sd«6O)>NC0OE 




0CC0Q6 

C0106 

35* 

10 rc=Cl*C2*SlNIC3*TlME*C4l 




C0CO22 

CD107 

3t* 

GO TO 13C 




CQG033 

coiio 

37* 

20 rO=Cl«C2*COStC3*TIHE*C4I 




0QC033 

00111 

3P.* 

GO TO 13Q 




C0C046 

ilC112 

39* 

30 FOrCl ♦C2*EXP(-C5*T1ME 1 *SIM I C3 *TIME*C4 1 




COOOSO 

00113 

40* 

CO TO 100 




C.0CC7 1 

00114 

41* 

40 F0 = C1 «C2*EXP«-CS*TlnE »*C0SlC3*TlHE*C4t 




000073 

cons 

42* 

GO To ICQ 




000114 

C0116 

43* 

SO F0=C1*C2*TIME 




00C116 

00117 

4 4* 

GO TO ICO 




000121 

00120 

4 5* 

60 F0=C1*C2*EXPI-C5*TIHE 1 




C00123 

00121 

46* 

100 RETURN 




C00134 

C0122 

47* 

END 




000165 


. .. li . . 


BA 


7.3 BATTERY 


STORED ENERGY (PE) 


POWER (PI) 

POWER REQUEST (RE1) 
INPUT EFFICIENCY (EFT) 
MAX. INPUT Pam (MPl) 



PCWER (P2) 

MAX. OUTPUT PCWER (MP£) 
INTERRUPT FLAG (INT) 
pa^ER REQUEST (RE2) 


The battery moci»-5l Is based oti the circuit diagram shown below. Current flow 
is determined by the output power request minus input power. Battery leakage 
is proportional to stored energy. Priority interrupt logic is activated when 
a mini mum or maximum capacity level is attained. 



‘’i 


FIGURE 7.3 BATTERY CIRCUIT DIAGRAM 


The output power P2^ stored energy PE# terminal current I# and capacitor 
voltage VC is computed using the following equations: 


P2 - REl 

PE = (vc\2We>i«-vc)iw:B/7.2Xio® 
(P2-pi)#icx)0 = (veFrvoi ~ l^T 

P£ “ l+VC/RU (VC+V0)/1OOO 
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A 


I nputs 

Parameter/Port 


Outputs / 

Var i ab I e/Port 


Input power 

I nterna I vol tage 

Terminal resistance (D =0.001) 

Q 

Battery capacitance (0 = 2.88x10 ) 

Leakage resistance (D = 0.05) 

Rated input power 
Input product efficiency 
Maximum input power 
Maximum energy storage 
Power request 

Energy deadband for priority resequencing 
Down time for priority resequencing 
Capital cost/year 
Maintenance cost/year 


Output power (=RE1) 

Stored energy (state of charge) 
Terminal current (+=out,-=in) 
Capaci tor voi tage 
Terminal voltage 
Power loss 

Time when battery was discharged 
Maximum qu i p u t p owe r 
Priority incerrupt flag 
Maximum charging rate request 


0 “ Default values supplied 

1 - Battery leakage time constant in hours = CBttRL/3600 


BCS 40180-Z 




Statistics 



Variable/Port 

Descr i ot i on 

Uni ts 

AiPE 

Maximum stored energy 

kwh 

SPC 

Sum of charging energy 

Kwh 

SPO 

Sum of discharging energy 

Kwh 


Cv.i I cu UU i on Soqut>nce 

1) Ccfliputt^ VC 

VC ^ Vw.CXiO^'^f’Ef CB + V0^ - V0 

2 ) Sc'lve for terminal current 1 

It (P2-Pl)^mx^ > {VC+V0)^/4-«RT, GO TO 2' 

, _ fVC+V0) - V tVC+V0)^ - 4-->^RnXP2-Pl)-stlOOO 


2) ' I = tVC+V0)/2^T and write DIAGNOSTIC 

3) Compute VT 

VT - VC+V0-l ttRT 

4) Potential energy balance and power loss 

n 

PE = - t I +VC/ RL ) ( VC+V0 ) /lOOO . 

PL = (l^-5tRT + VC^/RU/IOOQ. 

51 A^aximum charging and discharging rates 

RE2 = M[N(MP1,RAP, (E1-PE)/TI NCl/EFl 
MP2 - M I N ( RAP , ( VC+V0 1 ^/ ( 400Q1^RT 1 , ( PE-EDE 1 /T 1 NC ) 
where TINC = integration, step size 
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Cai fiMUlian ,Sf fluent <i:ant 




6) Priority interrupt logic | 

If PE < EDE and TO = 10^, TO = TIME j 

If PE < EDE and TlAHE - T0 > DT, INT = 1 and go to 7) | 

T0 = 10^ 

If PE > 2»€DE and INT = 1, INT = 0 

I f PE > El, INT = -1 

If PE < El - EDE and INT = - 1 , INT = 0 

■ 

7) Compute Statistics and Costs | 


f,' 



i 
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SU&ROUTINE B* ENTRY POINT 000372 


STORAGE USED COOEUI 000537; OATAtOl 0001C5 ; BLANK COMMON (2 1 COOCOO 

COMMON BLOCKS 

0003 CIMPL CD00D2 
ODOR CTIME ODODOl 
0D05 CSIMUL QDOOlO 
0D06 COST 000002 


external references IBLOCK, HAHEl 

0C07 SCRT 
aOlD DSQRT 

osn wwouj 

a012 N102S 

0013 HERR3S 


storage ASSIGNMENT IBLOCK, TYPE, RELATIVE LOCATION, HAMEl 

0001 DDCC36 IDOL DHOI OOOllI 200L 0000 000015 208F 0001 OOC136 300L OCOl QOOSlfc AOOL 

CCGi 00027*1 *101L OCOl 00031*1 *)D3L 0000 0 000000 AA 0000 R 000010 API OCOO R COOOIl A,P2 

OOGO 0 000002 B • DOOD D DOOCOM B2 0000 R 0D0D12 C 0006 R OOODCO CCl 0CQ6 R OOOOOl CMI 

0005 R DOCDOO OUM DGOD R D0DD13 ED2 0003 I OOOOOl ICNT 0003 I 000000 IHPL OCGO 0QD0S3 INJPl 

000«l R GDOCCO TIME OOCO R D000D6 TINCl 0005 R 000007 TKAX QCOO R DQQDQ7 TmAXI CEOO R ODOOlK NAIT 


ooioa 

1» 

CEA 





OOOCQO 

00101 

2* 


subroutine EAIP2, 

PE,PE0,1PE,1 ,VC,VT,PL,T0 ,HP 2, INT ,RE2, hPE,SPC , SPD , 


CO C 030 

t-DlGl 

3* 


1 PI, VO, 

RT, CB 

,RL,RAP,EF1,MP1.,E1 , RE 1 ,EDE , DT,CC ,CM 1 


Docoao 

00101 

*)♦ 

c 





ODCOOC 

00101 

5* 

c 

PURPOSE 

BATTERY MODEL 


COCOOO 

Ci 0 10 1 

(.♦ 

c 





COCDOO 

ooioi 

7=* 

c 

method 

COMPUTE STORED ENERGY AND POWER OUTPUT AS 


000000 

OGIDi 

a» 

c 



FUNCTIONS OF POWER INPUT AND POWER REQUEST. 


OGDODO 

DO 101 

9* 

c 



A EESISTOa/CAPACIIOR NETWORK IS USED TO 


cococo 

COIDI 

lO* 

c 



MODEL battery STORAGE. 


CODDCO 

CCIDI 

11* 

c 





CGOQOa 

30101 

12* 

c 

WRITTEN 

BY Y.K.CHAff VERSION I, JUNE 3,1977 


000000 

roiDi 

15» 

c 





DOCCOO 

30101 

!*(• 

c 

CALL SECurwCE 




COD030 

:ciDi 

IS* 

c 

OUTPUTS 




DCCCG 3 

eclol 

It* 

c 

P2 

-OUTPUT POWER, KU 

j. 

COCOOG 

COICI 

17* 

c 

PE 

-STORED ENERGY < STATE), KWH 


COOCOO 

DO 101 

le* 

c 

PED 

-STORED ENERGY DERIVATIVE 


DCCDDC 

CDlOl 

19* 

c 

IPf 

-integrator control 


DDCOOO 

DOIDI 

2C* 

c 

I 

-TERMINAL CUPRENT L*=OUT ,-=IN) , AMPS 


CDCOCC 




o 

oa 



GOIDI 

21 ♦ 

c 

VC -CflPRCITOR VOLTIIGE, VOLTS 

uOCOOO 


□ 0101 

2 2* 

c 

VT -TXRHINAL VoLT*SE» VOLTS 

ccoooo 


COlOl 

2 3 * 

c 

PL -POUCR LOSS, KU 

CODDOC 


CDlOl 

24* 

c 

TO TIME WHEN BATTERY WAS DISCHARGED, HR 

GCGOOO 


coiol 

25* 

c 

MP2 -MAXIMUM OUTPUT POWER, KW 

00 COST. 


roiDi 

26* 

c 

INT -PRIORITY INTERRUPT ELAG 

OOOTOO 


Cl 0101 

27* 

c 

RE2 -MAXIMUM CHARGING R*TE RE0UE5T, KW 

ccctno 


-ClCl 

28* 

c 

STATISTICS 

OOCCDO 


00101 

29 * 

c 

SPC -SOM OF CHARGING ENERGY, KWH 

DCDOOO 


GOIDI 

30* 

c 

MPE -MAXIMUM STORED ENERGY, KWH 

000000 


COlOl 

31* 

c 

SPD -SUM OF DISCHARGING ENERGY, MMU 

CDODOC 


L-OlOl 

32* 

c 

INPUTS 

DOCOOO 


CDlOl 

33* 

c 

PI -INPUT POWER, KW 

CCOOOO 


00101 

34* 

c 

VO -INTERNAL VOLTAGE, VOLTS 

000000 


ODIQI 

35* 

c 

PT -TERMINAL RESISTANCE, OHMS 

COGOOO 


COlOl 

36* 

c 

CB -BATTERY CAPACITANCE, FARADS 

CODQDQ 


CDlOl 

37* 

c 

RL -LEAKAGE RESISTANCE, OHMS 

OOCOOO 


COlOl 

38* 

c 

RAP -RATED INPUT POWER, KU 

CDOOOQ 


00101 

39* 

c 

EFl -INPUT PRODUCT EFFICIENCY 

COCGOG 


COlOl 

4C* 

c 

MPl -MAXIMUM INPUT POWER, KU 

GOCDCO 


00101 

41* 

c 

El -MAXIMUM energy STORAGE, KWH 

OCCOGO 


CClOl 

42* 

c 

REl -POWER REQUEST, KW 

OQCDOQ 


COlQl 

43* 

c 

EDE -ENERGY OEADPAND FOR PRIORITY RESEQUENCING, KWH 

ODDDOO 


GO 101 

44* 

c 

DT -DOWNTIME FOR PRIORITY RESEQUENCING, HR 

DGoaac 


OClOl 

45* 

c 

CC -CAPITAL COST/YEAR, % 

OCCOQO 


CCIDI 

46* 

c 

CM -MAINTENANCE COST/YEAR, » 

cocooo 


CD 101 

47* 

c 


OOCOOO 


□ 0103 

4R* 


COMMON /CIMPL/IHPL,ICNT/CTIME /TIME/CSIMUL/0UM171 ,THAX/C0ST/CCI ,CMI 

D0CC1C2 


00104 

4 9* 


REAL I,MP2,PPE,MP1,INT 

DDOOOa 


00135 

5r* 


DOUBLE PRECTSION AA,B,B2 

CDCOOQ 


00106 

51* 


TINCI=DUM(7 1*.5 

ODDQOO 


C01D6 

52* 

c 


CCOOOO 


00107 

53* 


IF« IHPL.6T.0I GO TO ICO 

000002 


DClll 

54* 


lF(RT.fQ..99?99»RTr.D01 

COD005 


CO 113 

55* 


IFICB ,E0. ^99999 )CB-2.S8Ea 

C00012 


3C11S 

56* 


IMPL.EO.. 99999 1RL=. 05 

0CO017 


C0117 

5 7* 


Torioctjoao, 

C0DD24 


□ 0120 

SB* 


INTrc) 

G00026 


C0X21 

59* 


TMAX1=IMAX*. 99999 

C0C027 


CO 122 

6C* 



O0C032 


00122 

61* 


MPE=0. 

DDC032 


C0123 

62* 


SPC=0. 

000033 


00124 

63* 


SPD-Q. 

CO 0034 


00124 

64* 

c 


C0C034 


G0124 

65* 

c 

CAPACITOR VOLTAGE 

33C034 


□ 0124 

66* 

c 


000034 


C;012S 

67* 


ICO WC=SORT< I7.2E61*PE/CB * V0**2 i -VO 

0CC036 

CO 

C0125 

68* 

c 


00C036 

o 

cn 

00125 

69* 

c 

TERMINAL CURRENT 

OC0036 


C0125 

70* 

c 


000036 

o 

DO 126 

71* 


P2=PE1 

GQC051 

i— * 

10127 

72* 


AA=IP2-P1)*4000.*RT 

C0D053 

O 

00130 

73* 


B=VC*VO 

000062 

1 

00131 

74* 


fi2=E*B 

G0CD66 


□ 0132 

7 5* 


IFIAA.GT.BZI GO TO 200 

CCDOTO 


00134 

76* 


1= B-DSORT CB2-AA) 

00C073 


r, n t 7 c 

77* 


T-I/<2.*RT> 

C0C103 
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00 1 S(> 

76* 



60 TO 300 

C00107 

00136 

794 

C 



000107 

00137 

8C4 


200 

I=D/(2.*RT) 

CODlll 

uomo 

81* 



ir CIMrL.EO. 2IWR1TE<6, 208IP2 

000116 

0014H 

82* 


2 08 

FORMAT! IHD, ISH POWER REQUEST , F12. 3, 50H EXCEEDS BATTERY CAPABILITY 

000127 

0 01«I4 

• 

CD 



I. CHECK VC,VO, AND RT. 1 

000127 

CD145 

84* 



IF fI‘:PL.E0.2 JICNT = ICNT*1 

0C&127 

C0145 

85* 

C 



000127 

C'Oms 

86* 

c 


terminal voltage 

C0D127 

C0145 

87* 

c 



□ DC 127 

00147 

8P* 


300 

VT=VC*V0-1*RT 

CPD136 

CQ14 7 

89* 

c 



000136 

00147 

9u* 

c 


POTENTIAL ENERGY BALANCE AND ENERGY LOSS 

000136 

D0147 

91* 

c 



000136 

D0150 

92* 



If! IPE.NE.OIPED=i-I-VC/RLI*CVC*VO 1/1000. 

000144 

C01S2 

92* 



PL=< 1*1 *RT*VC*VC/RL 1/1000. 

UC0154 

CD 1 52 

94* 

c 



000154 

00152 

95* 

c 


MAXIMUM CHARGING AnO DISCHARGING RATES 

OCC154 

JC152 

96* 

c 



000154 

CC153 

97* 



AP1= AMAXU0.,tEl-PEl/0U«(7n 

C00165 

00154 

98* 



RE2 = AHIN1!MP1 ,RAP,APl 1 

Lcons 

00155 

99* 



RF2=Rr2/EFl 

000207 

0G156 

100* 



AP2r AH4X1(0.,(PE-EDE I/0UMI71 1 

0DC21 1 

00157 

ICl* 



MP2=:AM1N1 <RAP ,B2/ ! 40C0 .*RT 1 , A P2 1 

Ccc221 

00157 

102* 

c 



000221 

00157 

103* 

c 


PRIORITY INTERRUPT 

000221 

CO 1 57 

104* 

c 



000221 

C016Q 

105* 



CrEl-rOE 

GCC241 

C0161 

106* 



EP2=EPE>E0E 

000244 

00162 

K7* 



IFCPE.bT.EDriGO 70 401 

C0C24 7 

0 0164 

lOR* 



iriT0.GT.999>99. >TO=TIME 

00025 3 

C0166 

109* 



WA1T=TIME-T0 

00C261 

_ei67 

no* 



IF IWAlT.GT.DTIINTrl 

CDC264 

00171 

111* 



GO TO 400 

CCC272 

00172 

112* 


401 

T0=103l/3QD 

D0Q274 

00173 

113* 



irCPE.LE .E021G0 TO 400 

00C275 

00175 

114* 



iriPE .67 .El IGO TO 403 

CD0301 

0D177 

115* 



IFCPE.GI.OGO TO 400 

0003C5 

00201 

116* 



INT = 0 

CDC311 

00202 

11 7* 



GO TO 400 

000312 

0C203 

IIP* 


4 03 

INT=-1 

000314 

0D2D4 

119* 


4 00 

CONTINUE 

000316 

00 204 

120* 

c 



00031 6 

GC2Q5 

121* 



IF! IMPL.LE.llRETURN 

000316 

0C2D5 

122* 

c 



000316 

D02D5 

123* 

c 


STATISTICS 

D0C316 

C0205 

124* 

c 



000316 

002Q7 

125* 



HPE=AMAX11MPE,PEI 

00C524 

00210 

126* 



SPC=SPC*T1NC1*P1 

000332 

□ 0211 

127* 



SPD=SPD*TINC1*P2 

000336 

00211 

128* 

c 



00C336 

0C212 

129* 



IFUIME . LI.7MAX1IRETURN 

C0C342 

00214 

130* 



CCIrCCKCC 

000351 

0 0 215 

131* 



CmI=CMI*CM 

00C354 

00215 

132* 

c 



000354 

0 0216 

13! • 



RETURN 

000357 

00217 

134* 



END 

0C0536 
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7.4 BURNER 


MASS FLOW RATE (Ml) 

TEMPERATURE (Tl) 

INPUT POWER (PI) 

MAX, INPUT POWER 
CMP1 1 

INPUT EFFICIENCY 
CEF1) 



MASS FLOW RATE (M2) 
TEMPERATURE (T2) 

OUTPUT POWER (P-2) 

MAX. OUTPUT POWER (MP2) 
OUTPUT EFFICIENCY CEF2J 


The burner model computes the amount of fuel required to be burned in the 
inlet airstream to raise the air temperature from the given inlet temperature 
to the specified outlet temperature. The fuel mass flow rate when integrated 
over time allows calculation of the cost of burner fuel. 



The mass of fuel consumed, F, is computed from the equation: 
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POOli QUA1XP3. 


Parameter/ Port 

Descr i Dt i on 

M 

1 

Inlet air mass flow rate 

CP 


Air heat capacity ID == 72X10 

T 

1 

Inlet air temperature 

T 

3 

Outlet air temperature (specified) 

NLl 


Combustor efficiency (D - 0-98) 

HF 


Fuel heating value ID = 5.56) 

CF 


Specific fuel cost ID = 0.094) 

FDM 


Maximum allowable fuel mass flow rate (D=l7800) 

CB 


Burner cost coefficient (0 -1^.683) 

LE 


Burner 1 i fe expectancy 

MDM 


Maximum allowable air mass flow rate (D:=27000) 

EF 

1 

Input product efficiency 

MP 

1 

AAaximum input power 

P 

1 

Input power 

Outputs 



Var i ab 1 

e/Port 


F 


Fuel mass consumed (state) 

EF 

2 

Output product efficiency 

MP 

2 

Maximum output power 

T 

2 

Outlet air temperature 

FD 


Fuel mass flow rate 

CC0 


Burner capital cost/ year 

CO 


Fuel cost 

M 

2 

Outlet mass flow rate (= AM) 

P 

2 

Output power 

Statist 

i cs 


FDU 


Maximum fuel mass flow rate 


D - Default values supplied 
BCS 40180-2 


BN 


Uni ts 
Ib/h 

kwh/ I b-°F 
°F 

kwh/ I b 
$/lb 
I b/h 
$/Ib/h 
years 
I b/h 

kw 

kw 


lb 

kw 

Op 

I b/h 
$ 

$ 

Ib/h 

kw 

Ib/h 
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The calculation sequence and default values are based on a burner sized using 
first principles to maintain the outlet temperature at 600°F assuming an inlet 
temperature of 120°F and a mass flowrate of 2.7x10^ Ib/h. These conditions 
represent the extreme conditions expected and should satisfy all burner require- 
ments. No. 6 fuel oil is assumed to be the fuel type. Cost and heating values 
were obtained from References 1 and 2. Cost estimates for the burner were 
estimated from the results of Reference 1. 

Calculation Sequence 

1) Capital Cost 

CC0 = CB^fft©AA/LE 

2) Maximum air mass flow rate allowed 

If A(\l = 0 set EFF == 1, MP2 = AAPl and go to 3) 

AA 1 NU^^HF^yDM I 

MlM min | ^ , MDM j 

I f T1 > T3, MlM = AtoM 

3) Efficiency and maximum discharge power 

EFF =1 + M1-MCR«-(T2-T1)/P1 (if Pi > 0 ) 

EF2 = EF1-»^FF 

AAP2 = min {MPl^FF, PI * MlM/Ml} (if Ml > 0) 

P2 = Pl^fFFF 


1. "Preliminary Feasibility Evaluation of Compressed Air Storage Power Sys- 
tems," United Technologies AER 74-00242, December 1976. 

2. Steam. Its Generation and Use . Babcock and Wilcox, New York, NY, 1972. 
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BN 

Calculation Sequence ConK 

4) Fuel mass flow rate 

“ NU^tHF 
T2 = MAXITl, T3) 

I f AAl > MIM write DIAGNOSTIC 

5) Compute Staticrics and Costs 

C0 = CF F 
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SUBROUTINE BN 


ENTRY POINT 000270 


STORAGE USED COOEOT C00«»n: DATA( 0 > 000052; BLANK C0MH0Nt2» 000000 

COMNON BLOCKS 

□003 CIHPL 000002 
OOOR CTIKE 000001 

0005 CSIHUL COOniO 

0006 COST 000003 


EXTERNAL REFERENCES (BLOCK« NAHEI 


0007 NWOUl 

0010 NI02* 

0011 NERR3* 


STORAGE ASSIGNMENT (BLOCK, TYPE, RELATIVE LOCATION, NAME! 


0001 


0CC056 

IDOL 

0001 


000237 

lOOOL 

0000 000003 

loior 

0001 000121 

20QL 

CCOl 

0C0107 

3 COL 

0006 

R 

OCGGOO 

CCI 

CG06 


OODOOl 

CMl 

0006 R 000002 

COP 

0005 000000 

DUH 

OCOO 

R 000C02 

EFF 

0003 

I 

COCQOl 

ICNT 

0003 

I 

000000 

IHPL 

0000 00003<i 

INJPS 

0000 R 000000 

MIM 

QCCR 

R 000000 

Tint 

0005 

R 

0DCDD7 

TMAX 

OCOO 

R 

OOOOCl 

TMAXI 









00100 

1* 

CBN 




coogqo 

uOlOl 

2* 


SUBROUTINE BN (F ,0F, IF ,EF2 , KP2 . T3,FD,CC, CO ,N2 ,P2 .F0U,H1 ,CP«T 1 , T2 

COOCUO 

uDlDl 

3* 


1 

.NU,HF.CF,FDK,CB.LE,M0M,EF1 ,MP1,P11 


DDOOCC 

00101 


C 




coooco 

GOIDI 

5* 

C 

PURPOSE 

COMPUTE FUEL REOUIRED TO RAISE THE AIRSTREAH 


cccooo 

roioi 

6* 

C 




COQOOO 

COlOl 

7* 

C 


TEMPERATURE A GIVEN INCREMENT. 


cocooc 

UCIDI 

8* 

C 




C'OCOOO 

ooiai 

9* 

c 

METHOD 

INTEGRATE THE FUEL MASS FLOW RATE OVER TIME 


OOCODO 

COlQl 

10* 

c 




LOGOOO 

:oiai 

11* 

c 

WRITTEN 

BY F.O. MAHONY VERSION 1, MARCH 

22 1977 

DCDOOO 

DOlOl 

12* 

c 




COCOOC 

DOIGI 

13* 

C 

CALL SEOUENCE 


000000 

DOICI 

IR* 

C 




000000 

00101 

15* 

c 

OUTPUTS 


CDCGOO 

COlOl 

16* 

c 


F - FUEL HASS CONSUMED SINCE TIME=D (STATEI, 

LB 

CODQOC 

CO 101 

1.7* 

c 


OF - FUEL MASS DERIVATIVE 


000000 

COlOl 

18* 

c 


IF - STATUS INDICATOR 


DDOCQQ 

OOICI 

19* 

c 


EE2- OUTPUT PRODUCT EFFICIENCY 


OCLCCQ 

00101 

20* 

c 


MP2 - MAXIMUM OUTPUT POWER, KW 


COOOOQ 

CD 101 

21* 

c 


T3 - outlet air temperature, DEG F 


OCOOOD 

COlOl 

22* 

c 


ro - FUEL HASS FLOW RATE, LB/HR 


CDDOOO 

COlOl 

23* 

c 


cc - burner capital COST/YCAR, » 


DOOODO 
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00101 

2«i* 

C 


CO - FUtL COST, S 


COOODC 

CDlOl 

25* 

c 


H2 - outlet mass flow RATE, LB/HR 


DCOOOO 

COlOl 

2fc» 

c 


P2 - OUTPUT POWER, KW 


OOGQOC 

COlOl 

21* 

c 


FOU - observed maximum fuel HASS FLOW RATE, 

LB/HR 

COCOOO 

roiQi 

2fi* 

c 




3CC0D0 

CCIGI 

2f* 

c 


INPUTS 


OOCiCCC 

OClOl 

30* 

c 


HI - INLET AIP MASS FLOW RATE, LB/HH 


rcooDc 

roioi 

31* 

c 


CP - AIR HEAT CAPACITY, KUH/LB-OEG F 


DDCOOO 

COlOl 

32* 

c 


T1 - INLET AIR TEMPERATURE, DEG F 


CODOCC 

COlOl 

33* 

c 


12 - OUTLET AIR TEMPERATURE, DEG F 


CiOCOOC 

CClOl 

31* 

c 


NU - COMBUSTEP EFFICIENCY 


COOGOO 

coici 

35* 

c 


HF “ FUEL HEATING VALUE, HHH/LB-OEG F 


DCOOOO 

COlOl 

36* 

c 


CF - SPECIFIC FilEL COST 


COCOOO 

viOiOl 

37* 

c 


FDM - MAXIMUM ALLOWABLE FUEL HASS FLOW RATE 

, LB/HR 

OOC3CC 

COlOl 

38* 

c 


CB - BURNER COST COEFFICIENT 


CDUDOO 

COlQl 

39* 

c 


LE - BURNER LIFE EXPECTANCY, YEARS 


CDODOO 

COlOl 

1)0* 

c 


MOM - MAXIMUM allowable AIR MASS FLOW RATE, 

LB/HR 

COOOOO 

OOlQl 

•ll* 

c 


EFl - input PRODUCT EFFICIENCY 


GCOOOO 

Ccloi 

92* 

c 


MPi - maximum Input power, kw 


GOCDOC 

COlOl 

93* 

c 


Pi - input power, kw 


OCOOOO 

"ClOl 

99* 

c 




COCOOO 

C0103 

*«5* 



C0MM0K/C1MPL/IMPL,ICNT /CTIMe/TIME /CSIMUL/DUHI7I ,TMAX 

COOCOC 

0010^ 

96* 



COMMON/COST/CCl ,CMI ,COP 


CCUOOQ 

COIOS 

97* 



REAL HP2,M2,M1,NU,LE,MDM,MP1,H1M 


00 000 c 

CO 105 

98* 

c 




COCOOO 

C01C6 

99* 



IFC IHPL.GT.OI go to IDO 


cocos 0 

CGI 10 

SC* 



TMAXI =TMAX*. 99999 


CCC002 

com 

51* 



IF(CP .EO. .999991 CP = 72.0E-6 


COQCOS 

00113 

52* 



IMNU .EO. .999991 NU 0.98 


C0C0I2 

00115 

S3* 



IFIHF .EO. .999991 HF r 5.56 


CCoOlT 

00117 

59* 



1F(CF .EO. .999991 CF =0.099 


COC029 

C0121 

55* 



IFIFOH.EO. .99999) FDM=1.78E*9 


C0C03I 

CD123 

56* 



IMCB .EO. .99999) CB =1.683 


CO 0036 

DO 125 

57* 



iriHDM.EO. .99999) HDH=2.7E*«I 


00009 3 

C012S 

58* 

c 




CCUQ93 

00127 

59* 



FOU = 0.0 


COCCSO 

00130 

60* 



CC =CP*MDM/IE 


QG0C51 

00131 

61* 


100 

EFF-1.0 


000056 

00132 

62* 



IFIMl .EQ.O.O)GO TO 200 


000057 

0013q 

63* 



MlM=MnM 


000061 

00135 

69* 



IFm.GT.T2) GO TO 200 


OOC063 

C0135 

65* 

c 




DC0063 

00135 

66* 

c 


MAXIMUM ALLOWABLE AIR FLOW RATE 


CC0G63 

0C135 

67* 

c 




C0Q063 

00137 

68* 



M1M = AHINHNU*HF*FDM/CP/IT2-T1 ),HOM) 


C0DQ67 

00137 

69* 

c 




CC0367 

0C1«»0 

70* 



IFIHl .GT.MIM) 60 TO 1000 


G0D103 

com2 

71 * 


300 

CONTINUE 


C0D107 

oom2 

72* 

c 




C00I07 

001M2 

73* 

c 


EFFICIENCY AND MAXIMUM DISCHARGE POWER 


C00IC7 

oons 

79* 



IF(P1.EO.D.O)GO TO 200 


0D0I07 

com3 

75* 

c 




00C107 

ooms 

76* 

c 




000107 

0C1M5 

77* 



EFF = 1 .0*M1*CP*<T2-T1 ) /PI 


CCCllG 

. 0 1 4 5 

78* 

c 




DODll 0 

uOiMi 

79* 


200 

EF2 = EF1*EFF 


C0DI21 

00117 

8C* 



MP2=MP1 


DC0123 
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OOISO 

81* 


IFtMl.GT.0.7 MP2 = AHIN1CHP1*EFF,P1*M1H/Mn 

000125 

00152 

82* 


P2=P1*EFF 

00C142 

00152 

83* 

- c 


C00142 

CC152 

84* 

c 

FUEL FLOW RATE 

00014? 

CC152 

85* 

c 


3DC142 

00153 

86* 


IFIIF.NE.OI DF= HI*CP*IT2-T11/NU/HF 

C0C145 

C0155 

8 7* 


IFLTl .6T.T21 DF=0.0 

CCG1S7 

00157 

88* 


FO=OF 

000164 

00157 

89* 

c 


C0D164 

:D157 

90* 

c 

COSTS 

00D164 

C0160 

9 1* 


CO = CF*F 

C0GI66 

00161 

92* 


T3r AMAXltTl,T2l 

D0D171 

CC162 

93* 


K2=ni 

C0L177 

00162 

94* 

c 


0C0I77 

00162 

95* 

c 

STATISTICS 

GCD177 

00163 

96* 


IFCIHPL.LE. 11 RETURN 

00C2D1 

00163 

97* 

c 


CD0201 

00165 

98* 


FDU = AHAXl <F0,FDUI 

00021 C 

00165 

99* 

c 


000210 

C0166 

IOC* 


IFCTIME.lt. THAX ll RETURN 

CQD216 

CD17Q 

10 I* 


CC1= CCI ♦ CC 

C0022S 

CD171 

102* 


CCP= COP ♦CO 

GO 02 30 

CO 172 

103* 


RETURN 

C00233 

CD 172 

104* 

c 


C00233 

00173 

105* 

1000 

IF(lHPL.E0.2lURITEl6f 10101 HI .HIH 

000237 

00200 

106* 

1010 

F0RMATtlHQ,28HBN INLET AIR MASS FLOW RATE .F12.3t 

CCD250 

00200 

107* 

1 

36H GREATER THAN MAXIMUM ALLOWABLE fF12.31 

000250 

00201 

108* 


IFC1MPL.E0.2IICNT-ICNT*! 

00C2SG 

00203 

109* 


GO TO 300 

000756 

00204 

no* 


END 

000410 



CM 

7.5 COST MONITOR^ 


UTILITY INPUTS 

• UTILITY ENERGY DEUIVERED 

• VALUE OF UTILITY ENERGY 

• SURPLUS ENERGY SUPPLIED 


WIND ENERGY INPUTS 
§ CAPITAL COSTS 

• MAINTENANCE COSTS 

• OPERATING COSTS 



f WIND ENERGY DELIVERED 
t VALUE 9F ENERGY DELIVERED 
f TOTAL LOAD DEMAND 


This component sums the cap i ta I , operating and maintenance costs of all system 
components. The total yearly cost TC is then computed using a fixed charge 
rate factor which represents depreciation, cost of money, insurance and taxes. 


^ This component must be placed last in the model generation input file, 
i.e., just prior to the END OF MODEL command. 
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CM 

The fot-al wind energy delivered to the loads plus surplus energy Is then sunined 
and yearly energy delivered TED computed. Cost of operation in mills is then 
given by 

Wind system cost/kwh = TC 1000. /TED 

Similarly^ the value of energy delivered to the loads is sumned minus the 
utility energy value and including the value of surplus energy, and factored 
to give yearly energy value delivered VED, Energy value in mills is given 
by 

Load value/kwh = VED 1000. /TED. 

Cost per value delivered is the ratio of the above two equations. 

In addition to the above Cost calculations, percent of total load supplied 
by wind storage PCW, percent of load supplied by utilities PCU and, percent 
of wind energy surplused to the utilities PCS is computed. The total cost 
in mills to meet the load Is then given by 

Load Gost/kwh = (wind system cost/kwh PCW + utility cost/kwh 
•si- PCUl/lOO., 

where 

Utility cost/kwh - value of utMIty energy ■’'i- lOOO./uti I i ty energy 

delivered. 


118 


BCS 40180-2 




InBMtS 

Parameter/Port 

D,es.c.ription 

Uni 

CR 

Capi tal charge rate 

%/y 

LE 

System 1 1 fe expectancy 

yea 

Common Block Incuts 


CC 

Total yearly capital costs 

$ 

CM 

Total yearly maintenance costs 

$ 

CO 

Operating and fuel costs over TMAX 

$ 

rmx 

Simulation time interval 

hr 

VDE 

Value of energy delivered (including surplus) 

$ 

TDE 

Wind energy delivered (including surplus) 

kwh 

TLD 

Total load demand 

kwh 

UTV 

Value of utility energy 

$ 

UTD 

Utility energy delivered 

kwh 

SPD 

Surplus wind energy supplied 

kwh 

Outputs ^ 




Total yearly costs (TC) 

Yearly energy delivered (TED) 
Cost of energy per kwh 
Yearly value delivered (VED) 

Cost per value delivered 
Percent of load supplied by 
Wind Storage (PCW) 

Utility (PCU) 

Surplus energy load factor (PCS) 
Total load cost per kwh 


$ 

kwh 
mil Is 
$ 


mi 


Printout only occurs when simulation is completed. Thus no output 
variable symbol is required. 
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subroutine: ch 


ENTRY POINT 000213 


STORAGE USED 


CODE (11 000226; DATAIOI 000330; BLANK C0HH0N(2Y 000000 


COMMON BLOCKS 

0003 COST 00001 I 

OOOB CIMPL 000001 

0005 CTIME OODOOl 

DOOB CSIHUL 000010 




EXTERNAL REFERENCES (BLOCK. NAME! 

oco7 Nunus 

0010 N102S 

0011 NEPR3S 


STORAGE assignment (BLOCK. TYPE, RELATIVE LOCATION, NAME! 


0001 


C0002C 

IDOL 

OCOO 


000016 

20QF 

0000 


0003 

R 

CO OCOO 

CC 

ODOD 

R 

DD0003 

CCY 

0003 

R 

OOCO 

R 

OOOCIS 

CP kwh 

OCOO 

R 

OOOOll 

CPV 

0006 


00 GO 


L’DD313 

INJPS 

0000 

I 

P00006 

IVDE 

0000 

I 

0000 

R 

C00C13 

PCU 

0003 

R 

CDOOlO 

SPD 

□ 003 

R 

0006 

R 

0CCO07 

THAX 

GGOO 

R 

DDOOOO 

THAXl 

0000 

R 

0003 

R 

00CC06 

UTV 

0003 

R 

000003 

VDE 

0000 

R 


Q0003A 300F 0000 OOUIOS ROOF OCOO 000210 500F 

OODOOl CMA 0003 R 000002 CC 0000 R C00002 COY 

CoCODO DUM 0000 R 000005 EOE OCOR I OOOCDD IMPL 

OODOOl LLE QOCO R 00C012 PCD OOCo P OOCOIR PCS 

DDDDOR TOE 0C05 R DODQOO TIME 0003 R C00C05 TlO 

OdODCi) TOY DDOQ R C00DD7 TOYN 0C03 R C0D007 UTD 

OOCQIQ VDEN 


00100 

1* 

COST 

OOCOOC 

COlOl 

2* 


SUBROUTINE CNCDUMM.FCR.LE) 

nooDoo 

COIDI 

3* 

C 


COOODO 

00101 

«!• 

C 

PURPOSE summarize WIND ENERGE STORAGE COSTS AND LEVELI2E0 

COOOOD 

00101 

5« 

c 

ENERGY COSTS PER KUH. 

CDCOOO 

00101 

6Y 

c 


OOODOO 

COIDI 

7* 

c 

WRITTEN By A.W. warren VERSION 1, MAY 1977 

COOOOO 

COlOl 

8* 

c 


COCCOO 

no 101 

9* 

c 

INPUT PARAMETERS 

000000 

00101 

1C* 

c 


eOOGOG 

□ 0101 

11* 

c 

FCR - FIXED CHARGE RATE FACTOR INCLUDING DEPRECIATION, 

OOUODO 

COlOl 

12* 

c 

money cost, INSURANCE, AND TAXES, PER YEAR 

coooco 

COlOl 

13* 

c 

LE - SYSTEM LIFE EXPECTANCY , YEARS 

COOODO 

CiOlQl 

lA* 

c 

THAX - SIMULATION TIME, HR 

COCGOD 

COlOl 

IS* 

c 

CC - TOTAL YEARLY CAPITAL COSTS, S 

OOCCOC 

LDlOl 

16* 

c 

CM - TOTAL yearly MAINTENANCE COSTS, S 

DOODOO 

roioi 

17* 

c 

CO - TOTAL OPERATING AND FUEL COSTS OVER TMAX , % 

COCDOO 

COlOl 

16* 

c 

VDE - VALUE OF ENERGY DELIVERED OVER TMAX, S 

COCCQC 

COlOl 

19* 

c 

TOE - total energy delivepeo OVER tmax, kwh 

CaCDOQ 


20* 

c 

__ TLD “ TOTAL LOAD DEMAND OVER TMAX, KWH 

ODDDOO 








[55 


DOIDI 

21^ 

DOlOl 

22* 

OOICI 

23* 

EDIOI 

ZV* 

CC103 

zs* 

0G104 

2 b* 

ODIOS 

27- 

CD 105 

2 8> 

rOlOS 

29- 

G01C6 

37* 

CClIO 

31 

CDUI 

32 

JD112 

33 

con 3 

34 

CD114 

35 

uGliS 

36 

00116 

37 

L01I7 

38 

£0120 

39 

CC12I 

42 

OC122 

4 1 

00122 

42 

CD 123 

93 

DQ125 

94 

CO 125 

45 

EC125 

46 

CC125 

47 

CC127 

48 

DD133 

4 9 

00133 

50 

00133 

51 

Q0133 

52 

00134 

S3 

C-0135 

54 

QD136 

55 

C0137 

56 

C0145 

57 

CC145 

SR 

CD145 

5 9 

OC145 

63 

CO 145 

61 

00145 

62 

CQ146 

63 

C0I4T 

6 4 

C0150 

65 

00151 

66 

r.ClS2 

67 

DO IS 2 

68 

DD153 

69 

00162 

70 

00162 

71 

r0162 

72 

CC162 

7 3 

DC 162 

74 

CC162 

75 

C0162 

76 

CO 162 

77 


UTV - VALUE OF UTILlT^f ENEftGY SUPPLIED LESS SUBPLUS VALUE, % 

UTD - total utility energy DELIVERED, KWH 

SPn ~ TOTAL SURPLUS ENERGY SUPPLIED TO UTILITY, S 

COMMON /COST/ CC, CHA ,CO , VDE, TDE ,TLD , UT V , UTO ,SPD 
COMMON /CIMPL/IM -L /CTIHE/ TIME /CSIMUL/ OUKm.TMAX 
REAL LE 

INITIALIZATION 

ir«IHPL.DT.O)CO TO TOO 

DUhM=D.D 

CC = Q . 

CPA =0. 

CO - 0. 

VDE= 0. 

TOE- 0. 

TL0= u. 

UTV=0. 

UID-Q. 

spd=o, 

IMAXlr TMAX*. 99999 

IDO IF tTl ME .LT.TMAXU RETURN 
IFtIMPL.LE.l)RETURN 

COST SUMMARY OUTPUT 

LLE = LE 
WRlTEt6,200 JLLE 

200 F0RMAT(1H1,35X,33H WIND ENERGY STORAGE COST SUMMARY // IH ,H0X,12, 

1 17H YEAR LIFE CYCLE 1 

COY := C0*8T6D./TMAX 

CCY = CC»LE*FCR*.G1 

TOY - COY ♦ CMA •» CCY 

WRITE 16, 3C01CCY,CHA ,COY,TOY 

300 FORMATT//// 3GX.22H0 YEARLY SYSTEM COSTS/ IH»,29X,1H*/ 1H-,R2X, 

1 12KCAPITAL C0ST,12X,F8.0,2H S / IH ,<i2X, IT HtINCLUDING FIXED , 

2 6HCHARGE5) / IHO.MZX.ieHFIXED 0 ♦ H COST, 8X,F8.D,2H 5 /IHO , 

5 M2X,21H0PERATING ♦ FUEL COST, 3X,F8.0,2H S / IHD , H2X , ShTOT Al 

9 19X,F8.0,2H 5 ) 

EDE - TDE • 8760. /TMAX 
IVOE = VDE ♦ 8760. /TMAX 
TOYN - TOY^IOOQ./ EDE 
VOEN = V0E*10C0./ TOE 
CPV = TOYN / VDEN 

WPnET6,R00)EDE , TO YN , IVDE , yOEN ,CPV 

900 FORMAK//// 3DX,26H0 ENERGY DELIVERED / 1H*,29X,1H* / 1H-, 

1 92X,16HENEPGY DELIVERED, 7X,F9.0,9H KWH / 1 HO, 3 3X,S 0 < IH* ) / 

1 IH ,33X,1M*,4EX,1H* / 

2 IH ,33X,1H*, 8X,19HLNEPGY COST PER KWH, 7X,Ffc.l,9H HILLS * / 

2 IH ,33X,1H*,4BX,IH* / IH , 

3 33X,1C{SH*****J / lhO,M2X,25HVALUE OF ENERGY DE t X VEHED , I 7, 

9 2H S / IH ,42X,22H(VALUE OF FUEL SAVED) / 1 HE, 4 2 X ,2 OhENERGY VALUE 
5 PER KWH, 6X,F6.1,6H PILLS / lHO,42X,29HCOST PER VALUE OELIVEPEO, 


BC$ 4Q180-2 


ceifrz 

7t* 


6 2X,£6.2) 

cool AA 

€0162 

79* 

C 


CDGIAA 

C0.I63 

r i» 


PCD= tTOE-SPD>*10D.,/TLD 

00019 A 

0O16<* 

8 1 • 


PCU= UTD«10D./TLD 

£00150 

€3165 

&2* 


pcs- SPD*13C,/7LD 

000159 

C0166 

.3 3* 


CPKMH- ITOYM* MDE-SPO 1 * U7V*100Q£l/TLp 

000160 

£0167 

6<» * 


VPlTt<6,5Q01PCD ,PCU,PCSrCPK«H 

£00167 

-0175 

65* 


SCO F0KP6T{/y// 30X,31H0 LOAD FACTOB / lH*t29X, 

030200 

£0,17 5 ^ 

66* 


1 IH* / 1H-»92X, 

CCC200 

£0175 

67* 


1 26HPCBCEM7 OF £0*0 SUPPLIED r F6.1, 2H / IM ,*l2X,22HB'r TOTAL UlH 

C0O23O 

00175 

88* 


2WD STSTEX / lH0,92X>29HPEBCrWT OF LOAD SUPPLIED, 2X, F6. 1 / 

£00200 

£0175 

69* 


2 IH .‘♦It, IIH BY UTILITY / 

£0020 G 

G&175 

90* 


3 lHG,M2X,26HPtrBCrUT OF WIKD EWEB5Y , F6.1 / 

£00200 

C0175 

9 1 * 


3 IK ,92a ,9HsURPLUSED / 

C0C23C 

CD17S 

92* 


A lH0r42X,23HC0S7 70 KEET LOAD , ZX,F6.1,6H P.lLLS/ 

00G2OC 

2D17S 

93* 


5 IH ,92X,27«IW1MD ♦ UTILITY! / iHl) 

C0C20D 

00175 

99 * 

c 


C00200 

£0176 

95* 


PtTUB!< 

GC020C 

00177 

96* 


END 

00 022 5 


CD 



7.S CO^\PRESSOR (PNEUAVATIC) 



POWER (PI) 
ambient TEMP. (TA) 

MAX. INPUT POWER (MPl) 
INPUT EFFICIENCY (EFI) 



FLOW RATE (N) 

SPEED (RS) 

^XIT TEMPERATURE (T2) 
^AX. OUTPUT POWER (MPa) 


iMXJTPUT EFFICIENCY (EF2) 


The Qoii^rss^or moUel ftspresanls tha oi fun'fC'i*niaritk> v^t a typical axial 

f low coiapri^saor . Tl\6 ossnprdssor la asaum^d Uoalgnad for a apooitlod §oi of 
ddaign oparaHn^ oondltlons and pe>r foriMnca roqutronKMvta, Tho maaa flow 
Is assuinad vjlrootly propofHonat to angular voiocUy ami InUopomtont ot tUo 
proi\suro r’atlo aoroas tho oomprossor.. This Is oxpcKtod to hold tot' tihf« v't 
tho vtoslgn mass flow lalt^v Tho polytroplo oftlolonov of tho oomproru Is 
assumoei to bo a woak lunv‘Hon of tho angular volodty. Initial oalculatlona 
aro mado with tho design polytt oplo ottlolonov. ami rotlnomonts auido aftiu 
ttu> ott’»Uoslyn paramotors aro oalouUtad. 



Tho express Ion tor tho angular oolooltp Is 


RS » P;iit 


RSp E.FP 

Ato CFn^tTA’tdbOl'J^ [ {PR2/PA im ^ ] 


whorof 

EFF « t(PRS/PAltfff{A'lltJPT « l>)/(tPR2/PA)ttllA - 1.) 

A « mM\ 


PCS 
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CO 


J-Dau-t.§. 

Parameter/Port 

Mscrlption 

■Units 

P 

1 

Input power 

Kw 

RSD 


Design angular velocity (D = 3600) 

rpm 

AO 


Design mass flow rate (D = 3000) 

Ib/h 

CP 


Heat capacity of air (D = 7.2Xl0'~^) 

kwh/ 1 b° 

TA 


Inlet air temperature (ambient) (D = 70) 

°F 

PR 

2 

Exit pressure (D = 147) 

psi 

PA 


Inlet pressure (ambient) (D = 14«7) 

psi 

CAM 


Heat capacity ratio (D =1.4) 


EF 

1 

Input product efficiency 

- 

MP 

1 

Maximum input power 

kw 

NPD 


Design poly tropic efficiency (D = 0.88) 

- 

PID 


Design inlet pressure (ambient) (D =14.7) 

psi 

P0O 


Design outlet pressure (D =147) 

psi 

TIO 


Design inlet air temp (ambient) (D =70) 

°F 

CK 


X 

Compressor capacity cost coefficient (D = 1.0) 

“ 

F0 


Compressor exponent for cost calculations 


Outputs 
Var 1 ab 1 
NP 

e/Port 

(D = 0.75) 

Poly tropic efficiency 


EF 

2, ■ 

Output product efficiency 

~ 

MP 

2 

Maximum output power 

kw 

T0 


Torque 

ft-lb 

M 


Mass flow rate 

Ib/h 

T 

2 

Exit temperature 

°F 

RS 


Angular veloci ty 

rpm 

CC0 


Cost of Compressor/year 



I ^ PQ 

CK == capftal cost tknown unit)/ (design point mass flow rate) * 
LN (outlet/ Inlet pressure rat lo)tt( 1 I fe expectancy of unit) 

D — Default values supplied 
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S ^a H s f- 1 cs 

MT 

MF 



Descr loHon Un I }-s 

Maximum temperature °F 

Maximum mass flow rate ib/h 

The calculation sequence and the default values are based on the assumption 
of an axial flow compressor, noftiinally rated at 125kw, and a pressure ratio 
of 10. The equations used relate first order effects among the various phys- 
ical quantities and were derived from first principles originally to support 
the research work of Reference 1. Cost scaling was also developed in that 
reference based on cost estimates obtained from turbomach i nery manufacturers. 


Calculation Sequence 


3.) Costs (First pass only) 

CC0 = CK t{- -S5- LN (-^1 

1 f Pi > 0 go to 2) 

A = (GAM-1 )/(GAM-ifNP0) 

RAT - (P0D/PID)-!S^tA 

EFF = 1, RS - 0, go to 3 ) 


1. ''Closed Cycle High Te«nperature Central Receiver Concept for Solar Electric 
Power," BEC/EPRT RP 377-1, June 1976. 
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Cd 1 ou t 1- 1 on So quonco . Cq( 1 U 



a) Angultf velocity 11 oration 


A (QMWU/CBAMtiNPl UnlHally NP * NPD) 

IW » (PR2/PA)'lHlA 

IFF K tRATsW-X)/lRAT-l) 

, R$ . *-* EL EPE 

RSD m cp-K-nwHao) irat - v 


Polytroplc efficiency 

NP a 1 - U ^ NPD)^^C2>0- 


ii!^^ X ti!\ ±: l S .Q.Lf ^ES2. o n 

PA (TlO-wtaO) RS ** 


Iterate until NP ciui RS are consistent 

(U Mere Hon doesn’t converge, then write DIAGNOSTIC and exit) 


3 ) Alans flow rate 

M a M->tiRS/RSD 


41 Exit temperature 

1TA+46Q h'lRAT -460 

&l Torgue 

U PT < 0, set Tfil « 0 and go to 6) 

T0 » PX^TO.0VlRStf2lt/60) 

§1 Efficiency and maximum power 
Eta » EFl^lEFF 

MP2 » Ml N 1 MPX^lfFF , X- Smi-HCP^f ITa-TA 1 ) 
H Compute Stat! sties and Costs 


X2<5 
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SUBROUTINE CO ENTRY POINT 000420 


STORAGE USED CODE f 1 ) C0Q613; OATAIOI 000066: BLANK COHHQNfai OOOOOO 
COMHON BLOCKS 

0003 CIPRL COOOOl 

0004 CTIhE 000001 

0005 CSTHUL 000010 

0006 COST 000001 


EXTERNAL REFERENCES (BLOCK. NAHCI 


o o 

gS 

S0 


0007 

XPRR 

0010 

ALOG 

0011 

NWOUS 

0012 

N102S 

0013 

NS TOP S 

0014 

NCRR3S 


RELATIVE LOCATION. NAHEl 


STORAGE ASSIGNMENT 

0001 QCD136 ICOL 
cool nt!C315 400L 
0003 I COOOOO IHPL 
0000 R 000036 RSNO 


Q003T5 lOOOL 
R COOCOS A 
000052 INJP» 
0004 R OOOOOO time 


0000 000010 lOlCF 

0006 R OOOOOO CCI 
0000 I 000002 ISP 
0005 R 000007 TM AX 


0001 000166 200L 

OOOS OOOOOO OUH 
0000 R OOOOOO PI 
0000 R 000001 TMAXl 


OGCl 000271 3001 
0000 R C0CD03 EFF 
0000 R COOC04 RAT 
0000 R 000007 XNP 


(BLOCK, type. 

0001 
ooco 
0000 


ODIOO 

1* 

cco 



cooooc 

GO 101 

2* 


subroutine C0(NP,EF2.MP2.T0.H ,T2»RS,CC.HT .HF ,P1 .RSD .HD .CP «T A .?R2 . 

COOOOO 

20101 

3* 


1 

PRl.GAM.EFl.PPl.NPD.PIO.POO.TIO.CK.FOI 

OOGOOO 

00101 

4* 

c 



COGOOO 

00101 

5* 

c 

PURPOSE 

PEPFORMXNCE MODEL OF AXTAL FLOW COMPRESSOR 

coocoo 

00101 

6* 

c 



aoQcoo 

CQICI 

1 * 

c 

NETHOO 

COMPRESSOR IS SI7E0 FROM INPUT OPERATING REQUIREMENTS. 

OOCuOG 

COlOl 

8 * 

c 



002000 

00101 

9* 

c 


MASS FLOW IS ASSUMED PROPORTIONAL TO ANGULAR VELOCITY 

OOOOOO 

00101 

1C* 

c 



COOOOO 

COlOl 

11* 

c 


AND independent of pressure ratio. 

DCGGOC 

20101 

1 2* 

c 



COGOQC 

COlOl 

13* 

c 

WRITTEN 

by F.O. MAhONY version 1. MARCH 22 1977 

ODCODD 

COlOl 

14* 

c 



COOOOO 

CClOl 

15* 

c 

CALL SEQUENCE 

COCOCC 

COlOl 

164 

c 

OUTPUTS 

COOOOO 

DCICI 

17* 

c 


NP - POLYTROPIC EFFICIENCY 

COOOOG 

CQIOI 

la* 

c 


EF? - OUTPUT PRODUCT EFFICIENCY 

CCCOOO 

00101 

19* 

c 


MP2 - MAXIMUM OUTPUT POWER, KU 

OOOOOO 

00101 

20* 

c 


TO - TORQUE, Ft-LB 

coocoo 
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CDlOl 

21* 

C 

M - n*ss FLOW RATE, LB/HR 

ODOOOD 

uoiai 

22* 

C 

T2 - EXIT lEHPERATURE, OEG F 

OCDOOQ 

pcioi 

2 3* 

C 

RS - AN3ULAW VELOCITY, R»H 

DOODOD 

C.C101 

2<** 

C 

CC - COST OF COMPRESSOR PER YEAR, {/YEAR 

COOCOC 

DO 101 

25* 

C 

MT - MAXIMUM TEMPERATURE OBSERVED, DE6 F 

COCOCO 

uOiOl 

26* 

c 

MF - MAXIMUM MASS FLOW RATE, LB/HR 

CODDOC 

OOIDI 

27* 

c 


□OOOOC 

COlOl 

2B* 

c 

INPUTS 

GDLCOO 

OClOl 

29* 

c 

PI - INPUT POWER, KW 

OOOCOO 

CO 101 

30* 

c 

RSn - DESIGN angular VELOCITY, RPH 

eCCDQO 

OOlQl 

31* 

c 

MD - DESIGN MASS FLOW RATE, LB/HR 

ccoooo 

COlOl 

32# 

c 

CP - HEAT capacity OF AIR, KUH/LB-OEG F 

000000 

CTlOl 

33* 

c 

TA - inlet air temperature (AMBIENTI, DEG F 

ccoooo 

00101 

34* 

c 

PR2 - EXIT PRESSURE, PSI 

ooococ 

OClOl 

35* 

c 

PRl - INLET PRESSURE IaMBIENT), PSI 

000000 

COlOl 

36* 

c 

GAM - HEAT CAPACITY RATIO 

OOGOCO 

CO 101 

37* 

c 

EFl - INPUT PRODUCT EFFICIENCY 

000000 

CClOl 

3B* 

c 

MPl - INPUT MAXIMUM DISCHARGE POWER, KW 

ccoooo 

00101 

39* 

c 

NPD - DESIGN POLYTROPIC EFFICIENCY 

DOC030 

COlOl 

40* 

c 

PIP - design inlet pressure (AMBIENTI, PSI 

cccaoo 

COlOl 

41* 

c 

POO - design outlet PRESSURE (AMBIENTI, PSI 

COGOOO 

COlOl 

42* 

c 

TID - design INLFT TEMPERATURE (AMBIENTI, DEG f 

• CCOOCQ 

COlOl 

43* 

c 

CK - COMPRESSOR CAPCITY COST COEFFICIENT 

ecccoc 

COlOl 

44* 

c 

FO - COMPRESSOR EXPONENT FoR COST CALCULATION 

OODOOQ 

00101 

45* 

c 


ODODOC 

CO 10 3 

46* 


COMMON /CInPL/ IMPL /CtIME/ TIME /C SI HUL/OUH (71 , T MAX /COST/CCI CODCOC 

0010<t 

47* 


REAL MD,MP1,nP0,NP,MP2,M,HT,MF 

OCOOOQ 

COIOS 

4fl* 


DATA PI /3. 14159/ 

COCGCO 

eolcs 

49* 

c 

initialization 

000000 

C01D5 

50* 

c 


OOOCOc 

00107 

51* 


IFdHPL.GT.OI GO TO 100 

00 0000 

com 

52* 


MT = 0.0 

CCGC02 

00112 

53* 


MF - C.O 

CQ0003 

CC112 

54* 

c 


OOCOD3 

00113 

55* 


IF (RSD.EO. .999991 RSO = 3600. □ 

C00G04 

00115 

56* 


IF (HP .EO. .999991M0 = 3.DE3 

COGOll 

C0117 

57* 


IF(MP1.EQ. .99999) MP1= 1.E8 

0CGC16 

00121 

52* 


IF (CP .EQ. .99997 ICP = 72.0E-6 

000023 

C0123 

59* 


IF (TA .EO. .99999ITA = 70.0 

CQC03C 

C0125 

bC* 


IF (P«?2.C0. .99999IPR2 = 147.0 

000035 

00127 

61* 


IF (PPI.EO. .99999IPR1 = 14.7 

0DCO42 

00131 

62* 


IF (GAM.EO. .99990IGAH - 1.4 

C0D047 

00133 

63* 


IF (MPD.EQ. .999991NP0 = 0.88 

C0C054 

0C135 

6 4* 


IF (PTD.EQ. .99999IPID = 14.7 

QCGO&l 

00137 

65* 


IF (POD.EO. .99999 IPOD = 147.0 

OGD066 

00141 

6b* 


IF mO.EO. .99999IT1D ::: 70.0 

0DD073 

00143 

67* 


IF (CK .EO. .99999ICK r l.D 

COOlOO 

00145 

68* 


IF (FO .LO. .999991F0 =0.75 

0C01C5 

00147 

69* 


NP = NPD 

CD0112 

00147 

70* 

c 


000112 

CO 14 7 

71* 

c 

COST 

CC0112 

00147 

72* 

c 


CDC112 

GO 150 

73* 


Cc = CK*MD**F0*AL0G(P0D/P1DJ 

000114 

00151 

74* 


tMAXl = TMAX*. 99999 

DCD132 

00152 

75* 


ICO CONTINUE 

000136 

CD152 

76* 

c 


000136 

00152 

77* 

c 

SOLVE FOR POLYTROPIC EFFICIENCY 

000136 
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m 


C0152 

78* 

C 

AND *NGUL*R velocity 

000136 

C0152 

79* 

c 


tool 36 

00153 

80* 


ISP = 0 

CG0136 

0C153 

81* 

c 


G0G136 

00151) 

82* 


EFF=1.0 

0001 36 

CD155 

83* 


IFfPl.GT. 0.0160 TO 200 

C0C140 

0D155 

84* 

c 


DC014G 

00157 

65* 


RAT= (P0D/PI0)**H gam-1.0 >/IG«M*NPDn 

G0D143 

00160 

86* 


70 =0.0 

G0016Q 

CQ161 

87* 


RS=C.O 

000161 

C0162 

88* 


NP=NPn 

C0G162 

00163 

89* 


GO TO 300 

000164 

C0163 

90* 

c 


C00164 

00164 

91 * 


200 A = (GAM-1. 0>/ICAM«NPI 

C0CU6 

C0165 

92* 


RAT= (PR2/PP1»**A 

C0G173 

00166 

93* 


EFF=(r?AT**NP - l.l/(RAT - 1.1 

000203 

0 0166 

94* 

c 


00U2G3 

00167 

96* 


RSNO = EFF*P1/MD*1 .0/CP/(TA*460.01/(RAT-1.0I 

C0C214 

00167 

96* 

c 


CC021 4 

C0170 

97* 


XNP = NP 

0CO224 

L0170 

98* 

c 


DD0224 

00171 

99* 


NP = 1.0-I1.0-NPO)*C2.0-(PIO/PR1*(TA*46D.DI/ITIO*46D.O»/RSNOI 

G0C226 

P0171 

ICO* 


1 **0.21 

C0G226 

"iti’bom 

101* 

c 


C0G226 

' C0172 

102* 


IFIISP.GT.10l 60 TO 1000 

G00250 

00172 

103* 

c 


00D2SC 

00174 

104* 


ISP = 1SP*1 

CD 025 4 

0ci74 

105* 

c 


C0D2E4 

00175 

1C6* 


IFIABS((NP-XNP)/NPI.6T. 0.0011 SO TO 200 

CDD2S7 

0D177 

107* 


RS= R50*RSN0 

0DQ265 

00177 

108* 

c 


C0D265 

00177 

109* 

c 

MASS FLOW rate 

000265 

00177 

no* 

c 


GDD26S 

0G20Q 

111* 


3G0 M = Mn*RS/RSD 

CCQ77 1 

00200 

112* 

c 


CCD271 

00200 

113* 

c 

EXIT TEMPERATURE 

00G271 

CD22Q 

114* 

c 


00C.2 71 

00201 

115* 


T2 = ITA*46D.01*RAT-460.0 

000274 

0 0202 

116* 


iFIPl.LE. 0.0160 TO 400 

CCD301 

00202 

117* 

c 


G00301 

DD202 

lift* 

c 

TO ROUE 

00030 1 

002D2 

119* 

c 


C003C 1 

00204 

120* 


TO = P1*737.6/(RS*2.0*PI/60.01 

000304 

00204 

121* 

c 


0CD3D4 

00204 

122* 

c 

EFEICIENCY AND MAXIMUM POWER 

000304 

00204 

123* 

c 


000304 

00204 

12 4* 

c 


000304 

00204 

125* 

c 


000304 

00205 

126* 


400 EF2 = EE1*EFE 

000315 

00205 

127* 

c 


000315 

00206 

128* 


HP2 = AMINl(HPl*EFF,1.5*HD*CP*fT2-TAn 

0CD317 

002C6 

129* 

c 

STATISTICS AND COST SUMMATION 

G0C31 7 

00206 

13C* 

c 


00031 7 

00207 

131* 


IF (IMpL.LE.ll RETURN 

CDG334 

00211 

132* 


MT = AMAXKHT, T21 

C0034 3 

00212 

133* 


HE = AHA XI (ME, Ml 

000351 

00213 

134* 


iriTlME.LT.TMAXll RETURN 

QOD3S7 


o 

o 
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DD215 

135* 

CCI = CCT ♦ CC 

000366 

G021S 

136* 

c 

000366 

00215 

13 7* 

RCTURN 

C00371 

□ 0216 

138* 

C ' ; ■ ' 

G00371 

G0217 

139* 

1000 write: I&,1Q10> KP,XNP,RS 

000375 

00224 

140* 

1010 rORMAT UH0 i 40HMAX ITFRATIONS FOR COMPRESSOR EFFIClENCr, 

D0G404 

00224 

141* 

1 15H - NP,XNP,RS = ,3F12.61 

0004C4 

00225 

142* 

STOP 

00C404 

0C226 

14 3* 

EKD 

000612 



7.7 PNEUAWTIC STORAGE VESSEL (CONSTANT PRESSURE) 



STORED ENERGY (E) 
STORED MASS (MS) 


FLOW RATE (Ml ) 
TEMPERATURE (T1 ) 
load REQUEST (REl) 

MAX. INPUT POWER (MP1 ) 
INPUT EFFICIENCY (EFl) 



■^OUTPUT POWER (P2) 
^TEMPERATURE (T2) 

■^MASS FLOW RATE (M2) 

-►MINIMUM AIR TEMPERATURE (TSO) 
►POWER REQUEST (RE2) 

► INTERRUPT FLAG (INT) 

►MAX. OUTPUT POWER {MP2} 


The pneumalic storage vessel is based on a constant pressure underground 
cavern design as represented in Figure 7.7. A surface pressure-compensation 
pond via a water shaft is assumed to maintain the vessel pressure at a con- 
stant value. This model is assumed to be used in conjunction with a heat 
exchanger. The energy is calculated as a function of the stored gas mass, 
the inlet/storage air temperature^ and a leakage function proportional to 
the stored energy. 


Basic Equation 


The rate of energy storage is computed from the aquation 


E = MltfCPtf(Tl-TO) - NU-JfE, charging 


E == -M255CPtf{T2~TO) - NLtIfF, discharging 

where Ml = mass flow rate during charge 
M2 = mass flow rate during dischar 




PRESSURE-COMPENSATION 

POND 




FIGURE 



7.7 CONSTANT PRESSURE AIR STORAGE 




BCS 40180-2 



cs 


BCS 


Inputs 


Parameter/Port 

Descr ipt ion 

Uni ts 

M 

1 

Inlet air mass flow rate 

Ib/h 

CP 


Air heat capacity (D - 7.2X10 

kwh/ 1 b°F 

T 

1 

Inlet air temperature 

°F 

TO 


Minimum air temperature (D = 60) 

°F 




. -1 

NU 


Leakage coefficient (D = 0.0008) 

h 

R 


Gas constant (D = 2.009X10”^) 

kwh/ 1 b 

VM 


Maximum storage capacity (D = 1.2X10^) 

ft^ 

PR 

1 

Vessel pressure (D = 147) 

psi 

LE 


Life expectancy of vessel 

years 

CV 


Vessel capacity cost (D = 0.22) 

$/ft^ 

RE 

1 

Load request 

kw 

EF 

1 

Input product efficiency 

- 

MP 

1 

Input maximum power 

kw 

MDE 


Mass threshold for priority resequencing 

lb 

MD 


Maximum charge or discharge mass flow rate 

lb 

TM 


Maximum al lowable air temperature (D = 120) 

°F 

TEM 


Maximum allowable inlet temperature 

°F 

CM 


Maintenance cost/year 

$ 

Qytp^.t,s 




Var lab 1 

e/Port 




E 


Stored energy (state) 

kwh 

M 

2 

Outlet mass flowrate 

lb/ hr 

T 

2 

Storage temperature 

°F 

V 


Storage vol ume 

% 

ft^ 

CC0 


Cost of vessel /year 

$ 

MS 


Mass of air in storage (state) 

lb 

MP 

2 

Maximum output power 

kw 

RE 

2 

Maximum charging rate 

kw 

1 NT 


Interrupt priori ty fl'a.g 

- 

TS0 


Minimum air temperature (=T0) 

°F 

0 - 

Def au i t va 1 

1 ues supp lied 




Outputs Cont. 
Var iab I e/Por t 



PR 

2 

Vessel pressure 

(=PR1) 

P 

2 

Output power (di 

i scharge ) 

MDM 


Maximum a 1 1 owab 1 

le mass flow rate {=MD) 


psi 

kw 


Statistics 

EU 

VU 


Maximum stored energy 
Maximum storage volume 


kwh 

ft^ 


The pneumatic storage vessel calculation sequence and default values assume 
a lOatm cavern approximately 340 ft. below ground and sized for storage of 
120kw for 24 hours. A maximum cavern wall temperature of 120°F is assumed. 
Cost estimates for the vessel were estimated from the results of Reference 
1, with cost scaling by .05 to account for plant size differences. 


1. "Preliminary Feasibility Evaluation of Compressed Air Storage Power Sys' 
terns," United Technologies AER 74-00242, December 1976. 
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Calculation Sequence 

TINC = integration step size, hr 
Cl = conversion constant = 5,43x10 

1) Vessel Cost 

CC0 = CVt^VM/LE 


-5 


kwh/ ft' 
psi 


2) Storage temperature 


T2 = 


CPt(MS 


+ T0 


3) Storage volume 


V = MSr. BitiT2.-t46QJ. 
PRltfCl 


4) Maximum Mass and charging rate 

MSM = VM«- 

R*(T2f-460) 

MDl = MlN(iVDM,IMSA/V-MS)/TlNC) 

RE2 = min iMPl, iW)lW^t(TEM-T0) J /EFl 


= min MPl, 

k 


5) Mass flow out (discharge mode) 


A^2 = 


m. 


CP’'t(T2-T0) 


P2 = REl 


6) AAaximum discharge rate 

MD = MIN(MDM,(MS-MDE)/TINC) 
MP2 = CPtf(T2-T0)ttMD 


BCS 40180-2 


135 


Calculation Sequence Conf . 


cs 


7) Stored energy rate 

E = CP*(T1-T®)-?W1 - NU*E - REl 

8) Stored mass rate 

= AM - AA2 

9) Priority interrupt 

I f MS < MDE, INT = 1 

If MS > 2«AOE and INT = 1, INT = 0 

I f AAS > MSM, INT = -1 

I f MS < MSM-AADE and INT = - 1 , INT = 0 

If T2>TM write diagnostic and set INT = -1 

I f MS < MDE or AAS >MSM write d I agnost i c 

10) Compute Statistics and Costs 
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BCS 40180-2 137 


SUBROUTINE CS ENTRY POINT 000*127 


storage used CODEIl) 000637; OATAtOl 000125; BLANK C0NHDN(2T 000000 
COMNON BLOCKS 
00C3 CINPL 000002 

ODOA rTiHt oooroi 
0005 CSTHUL ooonio 
00C6 COST 000002 


EXTERNAL REFERENCES IBLOCK. NAHEI 

0007 NWOUt 

0010 NI02t 

0011 NERP3S 


storage assignment tSLOCK, TYPE, RELATIVE LOCATION, NAHEl 


0001 

OCC326 

lOL 

0001 


000074 

IDOL 

3 000 


000004 

10 COE 

0000 

00C021 

101 DP 

DODO 


00 CO 36 

1020F 

0001 

0003R<I 

20L 

0001 


000362 

2CQL 

□ 006 

R 

000000 

CCI 

0006 

R 000001 

CHI 

CCOO 

R 

000003 

Cl 

0005 R 

000000 

DUN 

0003 

1 

000001 

ICNT 

0003 

I 

000000 

IHPL 

0000 

000072 

INJPS 

0030 

R 

000001 

HOI 

0000 R 

00 0000 

HSN 

0004 

R 

000000 

TIHE 

0005 

R 

000007 

TMAX 

0000 

R 000002 

tmaxi 






ocioc 

1* 

CCS 


CO 0000 

GO 101 

2* 


SUBROUTINE CST E ,DE ,I E , HS,OMS ,I HS ,N2 , T2 , V ,CC ,MP2 ,RE2 , INT ,TSO , PR 2 

CCDCOO 

00101 

3* 


1 ,P,HD8,EU, VU,M1,CP,T,T0,R,VN,PR1,LE,NU,CV,RE1,EF1,HP1,H0E,H0,7M 

COOODO 

00101 

•t* 


2 , TEH. CHI 

DOCOCIQ 

30101 

5* 

c 


oooodc 

CDlOl 

6* 

c 

PURPOSE PERFORHANCE KOOEL OF CONSTANT PRESSURE STORAGE VESSEL 

ODQGOO 

CClOl 

7* 

c 


CDCCOO 

OOlCl 

R* 

C 

HETMOO ENERGY IN STORAGE COMPUTED AS A FUNCTION HASS AND 

OCCODC 

DOlOl 

9* 

c 


OGDOOD 

00101 

10* 

c 

inlet TEMPERATURE. 

eocooc 

COICI 

11* 

c 


000030 

QOICI 

12* 

c 

RRlTTEN BY F.O. HAHONY VERSION 1, MARCH 23 1977 

CQOQOO 

:oioi 

13* 

c 


DCCOCQ 

QDIOI 

14* 

c 

CALL SEQUENCE 

COOODO 

00101 

15* 

C 


CO 0000 

COlOl 

It* 

c 

OUTPUTS 

COCOG C 

00101 

17* 

c 

E - STORED ENERGY fSTATE VARIABLE), KWH 

OOOODO 

COlOl 

16* 

c 

OE - STORED energy DERIVATIVE, KH 

cocnoc 

OCIOl 

1 9* 

c 

IE - STATUS INDICATOR FOR E 

COOODO 

roioi 

20* 

c 

MS - HASS OF AIR IN STORAGE ISTATE VARIABLE!, LB 

COdCOO 

CCICI 

21* 

c 

DHS - AIR FLOW RATE, L8/HR 

CDDOCC 

DDlOl 

22* 

c 

IMS * STATUS INDICATOR FOR MS 

COOGOO 

COlOl 

23* 

c 

M2 - OUTLET MASS FLOWRATE. LB/HR 

CO C 000 


o 



BCS 40180-2 



00101 

24* 

C 

T2 - STORAGE TEMPERATURE, OEG F 

cooooc 

GOlOl 

25* 

C 

V - STORAGE VOLUME, FT**3 

ccoooo 

00101 

26* 

c 

CC - COST or VESSEL/YEAP, S 

QCOOOO 

CDlOl 

27* 

c 

MP2 - MAXIMUM OUTPUT POWER, KM 

CCCiODC 

COlOl 

2B* 

c 

RE2 - MAXIMUM CHARGING RATE, KM 

GOCCOC 

30131 

29* 

c 

INT - INTERRUPT PRIORITY FLAG 

uOCCOC 

COlOl 

30* 

c 

TSO - MINIMUM AIR TEMPERATURE, DEG F 

CDOCGQ 

00131 

31* 

c 

PR2 - WESSFL PRESSURE, P5I 

COODOO 

COlOl 

32* 

c 

P - OUTPUT POWER lOTSCHARGE), KM 

CCGOQC 

COlOl 

33* 

c 

MDM - MAXIMUM ALLOWABLE HASS FLOW RATE, LB/HR 

CDCDCO 

CO 131 

34* 

c 

EU - MAXI-UM STORED ENERGY, KWH 

DO ODD 0 

COlOl 

35* 

c 

VU - MAXIMUM STORAGE VOLUME, FT**3 

COCCCO 

COlOl 

3b* 

c 


C-DOOOC 

DC 101 

37* 

c 

INPUTS 

COODOO 

CDIDI 

3fl* 

c 

MI - INLET AIR MASS FLOW RATE, LB/HR 

OOOCCO 

'‘0101 

39* 

c 

CP - AIR HEAT CAPACITY, KWH/L8-0EG F 

cooooo 

COlOl 

40* 

c 

T - INLET AIR TEMPERATURF, DEG F 

COOOOD 

COlOl 

41* 

c 

TO - MINIMUM AIR TEMPERATIIRE, OEG F 

CCOCQO 

00101 

42* 

c 

R ~ GAS CONSTANT, KWH/LB -DEG R 

cnciooo 

COlOl 

43* 

c 

VH - MAXIMUM STORAGE CAPACITY, FT**3 

CDODOC 

COlOl 

44 « 

c 

PRl - VESSEL pressure, PSI 

cooooo 

DDlOl 

45* 

c 

LE - LIFE EXPECTANCY OF VFSSEL, YEARS 

DCCDOC 

00101 

4(-» 

c 

NU - leakage coefficient . , 1/HR 

cooooc 

-COlOl 

47* 

c 

CW - VESSEL CAPACTIY COST , */FT**3 

CD GOOD 

roioi 

48* 

c 

REl - LOAD REOIIESI, KM 

000000 

COlOl 

49* 

c 

EFl - INPUT PRODUCT EFFICIENCY 

cooooo 

COlOl 

SC* 

c 

MPl - INPUT MAXIMUM POWER, KM 

cocooc 

CClOl 

51* 

c 

MDE - RESERVOIR THRESHOLD MASS FOR PRIORITY 

cooooc 

00101 

5 2* 

c 

RESEOUENCING, LB 

DO coco 

C-QIDI 

S3* 

c 

MO - MAXIMUM CHARGE / DISCHARGE MASS FLOW RATE, LB/HR 

GQOCOO 

COlOl 

54* 

c 

TH - MAXIMUM ALLOWAELE STORAGE TEMPERATURE, DEG F 

CDCOOO 

CDIDI 

55* 

c 

TEM - MAXIMUM ALLOWABLE INLET TEMPERATURE, DEG F 

COOOOO 

OOIDI 

56* 

c 

CM - MAINTENANCE COST / YEAR , 5 

cooooo 

30101 

57* 

c 


ODCDCO 

ODIQI 

5R* 

c 


COODOO 

30103 

59* 


COMMON /CIMPL/IHPL ,ICNT/CTIME/ TIME /CS IMUL/DUM < 7 I ,TM AX 

COODOO 

00104 

6G* 


COMMON /COST/ CCT.CMI 

GDOOOO 

OOlOS 

61* 


REAL NU,MS,MP2,INT,M0M,H1,LE,MP1,MDE,M0,H2,HSM,N01 

ODOOOC 

0C105 

62* 

c 


GOCOOO 

C01D5 

63* 

c 


OOCOOC 

00106 

64* 


IFf IMPL.GT.OI GO TO 100 

DDOnOO 

D01C6 

65* 

c 


CODGDO 

COHO 

66* 


inCP .EO. ,99999> CP = 72.DE-6 

C0C002 

00112 

67* 


iriTM ,E0. .999991 TM= 120. D 

CO 00 07 

00114 

68* 


IFITO .EO. .999991 TO =: 60.0 

oooai4 

00116 

69* 


iriNU .EO. .99999) NU = 0.0008 

00 DC 21 

00120 

70* 


IFIR .EO. .99999) R z 2.D39E-5 

000026 

CD122 

71* 


iriVM .EO. ,99999) VM = 1.2E*6 

000033 

00124 

72* 


IFIPRl.EO. ,99999) PRl = 147.0 

00C040 

D0126 

73* 


TFICV.EO. .99999) CV = 0.22 

00C045 

C0133 

74 * 


REi=0.0 

000052 

C0130 

75* 

c 


000052 

30131 

76* 


TMAXl = TMAX*0. 99999 

UDD053 

00132 

77* 


TSOrlO 

00 CCS 6 

0.D132 

7B* 

c 


00D056 

00133 

79* 


CC = CV*VH/LE 

000060 

00134 

63* 


Cl : 5.43E-5 

C0QG64 









CO 

o 

t/1 



00134 

814 

C 



C00C64 

o 

C013S 

B2* 



INT =0. 

000066 

H-* 

0013b 

83* 



I»R2=PR1 

00CC67 

00 

o 

00137 

84* 



EU= 0. 

000071 


00140 

85* 



VU- 0. 

CDC072 

ro 

00141 

8 6* 


ICO 

continue 

000074 


00141 

87* 

c 



C00074 


DC 141 

88* 

c 



C0CC74 


00141 

84* 

c 



00CC74 


CC141 

40* 

c 


STORAGE TEHPCRATURE 

D00C74 


C0141 

41* 

c 



000074 


C0142 

92* 



T2 = F/CP/MS*T0 

00C574 


00142 

43* 

c 



000074 


00 142 

44* 

c 


STORAGE VOLUME 

DOCC-74 


DC142 

95* 

c 



C0C074 


0G143 

96* 



V = MS*R*<T2*460.0 l/PRl/Cl 

000100 


G0143 

97* 

c 



OOClOO 


00143 

98* 

c 


HAXIHUH HASS and CHARGING RATE 

000100 


00143 

99* 

c 



COClOO 


GO 144 

100* 



HSH = VN*PRl*Cl/R/(T2*460.0> 

000110 


00145 

101* 



HDH=M0 

C00116 


60146 

1J2* 



MP1= ANlNllHDHfAHAXl (C).,fHSH-HSl/0UHf7ll) 

C00120 


0C147 

103* 



RE2 = AHINltHPl,MDl*CP*ITEM-T011/EFl 

00G133 


00147 

104* 

c 



000133 


00147 

105* 

c 


HASS FLOU OUT (DISCHARGEl 

000133 


CD 147 

106* 

c 



000133 


00150 

107* 



M2 r RE1/CP/CT2-T0 > 

C00145 


00151 

108* 



P = REl 

000153 


00151 

109* 

c 



0001S3 


00151 

lie* 

c 


MAXIMUM DISCHARGE RATE 

coais3 


DO 151 

111* 

c 



CQ01S3 


CO 152 

112* 



MDNr AMIN1(MDN,ANAX1( 0.,(HS-HOEI/OUMf’7l n 

000155 


00153 

113* 



MP2 = CP*TT2-T01*MDM 

000171 


00153 

114* 

c 



C00171 


CD153 

115* 

c 


STORED ENERGY RATE 

000171 


DO 15 3 

116* 

c 



CDD171 


0 0154 

117* 



IF I IE .NE. 01 0ErCP*CT-T01*Hl - NU*E -REl 

0G0174 


00154 

lie* 

c 



000174 


00154 

119* 

c 


STORED MASS RATE 

C0C174 


CD154 

120* 

c 



EC0174 


00156 

121* 



IFdMS.NE.OI DMS::M1-M2 

C00207 


00156 

122* 

c 



006207 


0015 6 

123* 

c 


PRIORITY INTERRUPT LOGIC 

Q0C2C7 


C0160 

124* 



IFIHS .LE. MOEl INT=1. 

000214 


00162 

125* 



IFIMS.6T. 2.*MOE .AND. INT. EO. 1.1 INT=0. 

C00222 


00164 

126* 



IFIMS .GE.MSMl INT - -1. 

000241 


00166 

127* 



IFIMS.LT. HSM-MDE .AND. INT.EQ.-l.l INT=0. 

DC 02 4 7 


C017D 

128* 



IEIT2 .GT. TM) INT= -1. 

CCC266 


00173 

129* 

c 



0C0266 


C0172 

136* 



lFllMPL.LE.il return 

000274 


00174 

131* 



IFIIHPL.GT.21B0 TO 200 

00C303 


G0176 

132* 



if(I2.lt.thi go to 10 

000307 


OC200 

133* 



WRIT t 16. 1000 1 T2,TH 

DC031 3 

Ol 

0 0204 

134* 



ICNT^TCNT*! 

000322 


00205 

135* 



IFIMS. GT.MDC) GO TO 20 

000326 


00207 

136* 



uriTE 16, lOlOlMS.MDE 

OOG331 


00213 

137* 



ICNT=ICHT*1 

000140 


o 
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QD21<« 138* 

0C216 139* 

00222 J90* 

00222 l«(i* 

0C222 1H2* 

00222 l*t3* 

00223 199* 

0D22H 195* 

00229 196* 

DD22S 197* 

00227 198* 

00220 199* 

00230 150* 

0C231 151* 

0C232 152* 

CD232 153* 

00233 159* 

00233 155* 

00239 156* 

00239 157* 

00235 156* 


20 IFIMS,LT.«SM> so to 200 
WRlTt(6,10Z0l HS.HSM 
ICNTrICNT*! 

C ' 

c STATISTICS 

C 

2C0 FU = AF.AXl iCU,£l 
VU = AMAXHVU.WI 
C 

IFITIME.tT.TMAXXl RETUffW 
CCI r CCI-frCC 
CHI=CH1*CM 

c 

return 

1000 F0RHAT<1M0,23HCS STORAGE tEH»tRATURF.FI2,3,l 8H6REATER THAN ALLOW, 
1 5HABLE , E12.31 

1010 FORKAK 1H0,25HCS NASS OF AIR IK STOR AGE ,E 12 . 3 , 

1 2&H BELOW HINIMUH ALLOWABLE?r 1 2 . 3 ) 

1020 rOR«ATtlHD,25MCS HASS OF AIR IN STORAGE ,F 12. 3, 

I 28 M exceeds MaXIHUK allowable, E12. 3) 

END 


000599 
000397 
CQ0356 
CD0356 
Q0D356 
000356 
0QC362 
0QC367 
CQ0367 
000375 
000909 
00Q9Q7 
CO 0907 
000912 
00C636 
000636 
00 0635 
uOG&36 
000636 
0SC636 
000636 


o 

CO 
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7.8 FLYWHEEL/ CLUTCH 


POWER (PI) 

POWER REQUEST (RED . 
INPUT EFFICIENCY (EF1> 
MAX. INPUT POWER (MPD 


KINETIC ENERGY (KE) 


i 






FL 







POWER (P2) 

ROTOR SPEED (,RS) 

POWER REQUEST (RE2) 
INTERRUPT FLAG (INT) 
OUTPUT EFFICIENCY (EF2) 
MAX. OUTPUT POWER (MP2) 


The flywheel model is a first order differential equation for kinetic energy 
which is driven by input power when charging and by a load request when dfs- 
chat'ging. Power losses include clutch losses versus shaft speed and torque, 
windage losses, and friction losses due to bearing and seals. Shaft speed 
is determined analytically from kinetic energy. Priority interrupt logic 
is activated if minimum or maximum capacity levels are reached. 


Basic Equations 


where 


KE == k^tU)^ 


KE = P - P - C -Jf-ik)- C 
IN OUT 1 2 


flywheel constants 
U) - rotor speed in rad/ sec 


^IN ~ power - clutch losses 


= output load request 
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Tables 


Description 

Units 

CL0 


Clutch losses versus rotor speed (rpm) 
and torque (ft-lb), when engaged (Table 
dimension = 90) 

kw 

CLl 


Clutch losses versus rotor speed (rpm) 
when disengaged (Table dimension = 17) 

kw 

1 tIDU t-S 




Parameter/ Port 



PR 


Pressure in vacuum housing 

psi 

HAA 


AAoment of inertia'^ 

s 1 ug-f t 

RF 


Radius of flywheel 

ft 

SR 


Shaft radius 

ft 

WT 


Flywheel weight 

lb 

KF 


Coefficient of friction 

- 

2E 


Width of flywheel at tip 

ft 

C2 


Windage loss coefficient (analytic default) 

- 

P 

1 

Input power 

kw 

EF 

1 

Input product efficiency 

- 

MP 

1 

Input maximum charging rate 

kw 

RAP 


Rated power, charge or discharge 

kw 

RE 

1 

Discharge load request 

kw 

E0 


Minimum allowable storage capacity 

kwh 

El 


AAaximum allowable storage capacity 

kwh 

EDE 


Energy deadband for priority resequenclng 

kwh 

CAA 


AAalntenance cost/year 

$ 

CC 


Capital cost /year 

$ 

Cutouts 



Vari ab 

le/Port 



RS 


Rotor speed 

rpm 

KE 


Kinetic energy (state) 

kwh 

^ 1 nc 

ludes phy 

si cal drive system. 
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.QutRMlS-Caali 

Var l<^b!o/Po^^ 

Dosci ( p (■ Ion 

.UjiLU 

T0 

Input torque (charging) 

ff-lh 

Ti 

Qu tpu t torque ( ci i schar g 1 ng ) 

ff~lh 

P 2 

Output power 

Kw 

PL0 

Clutch lospos (charglrtgl 

kw 

PUl 

Clutch losses (qlsGhat'glng) 

kw 

EF 2 

Output efflclGncy 


2 

^^ax^nlum output power 

kw 

INT 

Priority Intorrupt flag 


RE 2 

Maximum oharglng power roquost 

kw 

StatlsHcs 

m 

Maximum stored energy 

kwh 

MPC 

Maximum charge rate 

kw 

MPD 

Maximum discharge rate 

kw 

SPG 

Sum of charging energy 

Kwh 

SPD 

Sum of discharging energy 

kwh 
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Calculation Sequence 




1) Compute flywheel constants 

k = i •!(■»/ 3. 7661 6-Sflo”^ 

2 

C^ = KF^W«R*/1.3558t{-10“^ 

C^ = C tf- RF^'^ Ml + 2.3tfZE/RF) (DEFAULT) 

2 o 

C = 1.0946 tf lo"^ 
o 

If KE < EO or KE > El write diagnostic 

2) Compute rotor speed 

a) = VWTk 

RS =(4-?f(60/2Tn 



3) Compute power losses and net power when charging 

If PI = 0, set T0 = PL0 = Pji^ = 0 and go to 4) 

TO = Pltf737.6/W 
PLO = CL0(RS,T0l 
P,^=P1-PL0 

If P||^<0, write diagnostic 

4) Compute power tosses and output power when discharging 
if REl = 0, set T1 = PLl = P2 = pQyy = 0 and go to 5) 

T1 = REl-5t737.6/a) 

PLl =_CL0(RS, -Tl) 
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Calculation Sequence 

4) Cont. 



P2 = REl - PLl 


^OUT ~ 


f P2 < 0, set P2 = 0. and write diagnostic 


5) Compute power losses when disengaged 


f PI > 0 or REl > 0, go to 6) 


P^^^ = CU(RS) 


6) Flywheel kinetic energy rate 

KE = P. - P -C*td- 

I N OUT 1 2 

7) Maximum input (charging power) 

TM = MP1-SI-737.6/W 
MP0 - MPl - CL0(RS,TM) 

If MP0 < 0^ write diagnostic and go to 8) 

EF0 = EF1-5WP0/MP1 

RE2 = M1N(MP0,RAP) , (Ei-KE)/TlNC)/EF0 

8) Output efficiency and maximum power 

RAPl = MINtRAP, (KE-E0)/TlNC), TINC = integration step 
TM = RAPl-«-737.6/a) 

MP2 = RAPl - CL0(RS,-TM) 
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FL 

Ca leu [at* I on Sequence 

8) Cont. 

.■a 

I f MP2 < 0 write d i agnost i c 
EF2 = MP2/RAP1 
If REl > 0, EF2 = P2/RE1 

9) Priority interrupt logic 

I f KE < E0 , I NT = 1 

if KE > E0 + EDE and INT=1, iNT=0 

I f KE > El , INT = -X 

If KE < El - EDE and INT= -1, INTO 

10) Compute Statistics and Costs 
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subroutine TL entry point 001125 


STORAGE USED CODE Ul C01333; OATACQI 000231; BLANK C0HH0Nt21 OOOODO 

COHHON BLOCKS 

0003 ClBPL 000002 
OOQ‘1 CTImE 000001 

0005 CSIHUL 000010 

0006 COST 000002 


EXTERNAL REFERENCES IBLOCK, NAMEI 

0007 TBLU2 
0010 TBLUl 
□Oil XPRR 
□012 NWOU* 

0013 N102S 

0014 SORT 

0015 NEHR31 


STORAGE ASSIGNMENT (BLOCK, TYPE, RELATIVE LOCATION, NAMEI 

0001 OC0Q6O lOL 0000 000042 108F 0000 000026 109F 0001 000147 20L 0001 000315 200L 

0000 0CD060 20SF 0001 000412 300L 0000 000074 308F 0001 000440 4C0L 0001 C00544 500L 

0000 OGDllO 508F 0001 000574 600L 0001 000705 70QL 0000 000125 708F POOO R C00005 AK 

0000 H 0DC022 APC 0G06 R 000000 CCI 0006 R 000001 CHI 0000 R 00CD06 Cl 0 COS R OOPCOO OUH 

0000 R 000025 ECO 0000 R 000024 ECl 0000 R C00021 EFO 0C03 I 000001 ICNT 0C03 I OOOOOC IMPL 

OCDO GC0166 INJPS 0000 1 000012 MN4 0000 R 000001 MPA OCOO R D0C0D2 KPB COCO R COOCOO MPO 

DODO 1 CODDIl K4 OCOO I 000013 NNNHS QCOO I 000014 NNNRS4 QDOO I OCCD07 KNRS 0000 I 000010 NNT 

3000 K GU0015 OMEGA 0300 R 000016 PIN 0000 R 0DDQ17 POUT 0000 R OOOC23 RAPT 0010 R OOOOCO TBLUl 

0007 R CUCCDD TPLU2 0CD4 R 000000 TIME OCOO R OOOOQ3 TINC OCOO R 000020 TM 0CC5 R 000007 ThA* 

OCOO R DCC0C4 IMAXI 



COlOO 

1* 

CFL 


000007 

COlOl 

2* 


SUBROUTINE FL(CL0,CL1 ,RS ,KC ,KEO , IKE ,T0 , T 1 ,P2 ,PLO , PLl ,v'F2 , MP2 , INT , 

000007 

eolol 

3* 


1 RE2,HE,MPC,MPD,SPC,SPD, PR , HM , RF , SR ,UT ,K F,2E , C2 ,P 1 ,EF1,MP1,RAP 

00C0C7 

coioi 

4* 


2 ,BC1,E0,F1,E0E,CM,CC» 

000007 

COlOi 

5 s* 

C 


CDCC07 

00101 

6* 

C 

PURPOSE MODEL OF FLYWHEEL CAPABLE OF ABSORBING POWER 

000007 

caioi 

7* 

c 

ANO OF delivering POWER ON REOUEST 

ODC007 

CO 101 

8* 

c 


CDCCC7 

COlOl 

94 

c 

METHOD OUTPUT POWER AND KINETIC ENERGY COMPUTED FROM 

000007 

00103 

10« 



LOOC37 

DC103 

11 ♦ 

c 

POWER REQUEST AND INPUT POWER 

CD00D7 

00103 

12* 

c 


CQ0007 

00103 

13* 



000007 
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OB 


001 D 3 

l^i* 



000007 

DO 103 

15 * 

C 

UBITTEN BY Y.K.CHAN VERSION 1 , JUNE 17 t 1977 

CDDCD 7 

0010 3 

16* 

c 


CDCD 07 

00103 

17 * 

c 

C*LL SCOriENCE 

G 0 CC 07 

00103 

1 F* 

c 

tables 

CDC 007 

00103 

19 * 

c 

CLO -CLUTCH LOSSES US ROTOR SPEED IRPMI AND TOROUFCPT-LBI tNW 

0 DC 0 C 7 

00103 

2 C* 

c 

CLi -clutch losses vs rotor speedirphi when disengaged, kw 

CD 0 CC 7 

C 0103 

21 * 

c 

OUTPUTS 

C 0 CCO 7 

DD 103 

22 * 

c 

RS -ROTOR SPEED, RPM 

00 C 007 

00103 

23* 

c 

KE -kinetic ENERGYC STATE! , kwh 

OOOD 07 

CC 1 D 3 

29 * 

c 

KED -KINETIC ENERGY INCREASE RATE,KU 

CDoeoi 

CO 10 3 

2 5 * 

c 

IKE -integrator CONTROL 

CD0CO7 

CO ID 3 

26 * 

c 

TO -INPUT TOROur (CHARGING), FT-LB 

C 0 GCQ 7 

00103 

27 * 

c 

Tl -OUTPUT TORQUE 1 DISCHARGING ) ,ET -LB 

000007 

GD 103 

28 * 

c 

P 2 -OUTPUT POWER, KW 

D 00007 

00103 

29 * 

c 

PLO -CLUTCH L OSSES ( CHARGING ), KM 

DDGD 07 

00103 

30 * 

c 

PLl -CLUTCH LOSSES t DI SCHAR 61 NG ) , KH 

0 DC 007 

00133 

31 * 

c 

EF 2 -OUTPUT ErriClENCY 

D 0 L 007 

CO 103 

32 * 

c 

MP 2 -MAXTHUM OUTPUT POWER, KM 

DQCG 07 

DQ 103 

33 * 

c 

INT -priority interrupt FLAG 

000007 

0 C 103 

3 ««* 

c 

RE 2 -HAXIHUH CHARGING POWER REQUEST 

D 0 CC 07 

00103 

35 * 

c 

STATISTICS 

000007 

CO 103 

3 6 * 

c 

HE MAXIMUM STORED ENERGY, KWH 

G 0 C 007 

00103 

37 * 

c 

HPC -HAXIHUH CHARGE RATE.KW 

00 ODD 7 

DC 103 

38 * 

c 

MPD -MAXIHUH DISCHARGE RATE,KM 

000007 

DO 103 

39 * 

c 

SPC -SUM OF charring POWER, KUH 

CD COO 7 

OC 103 

** 0 * 

c 

SPO -SUM OF DISCHARGING POWER, KUH 

000007 

D 0103 

i| I* 

c 

INPUTS 

00 C 007 

DC 1 Q 3 

«i 2 * 

c 

PH -PRESSURE IN VACUUM HOUSING, PSI 

CO COO 7 

00103 

*« 3 * 

c 

HM -moment of INERT IA,SlUG-FT 2 

000007 

0010 3 

4 4 * 

c 

RF -RADIUS OF FLYWHEEL, FT 

000007 

CO 103 

4 5 * 

c 

SR -SHAFT RADIUS, FT 

000007 

00103 

46 * 

c 

wt -flywheel weight, lb 

000007 

C 0103 

47 * 

c 

KF -COEFFICIENT OF pRlCTlON 

000007 

00103 

48 * 

c 

2 E -WIDTH or flywheel AT TIP, FT 

CO 0007 

C 0 ia 3 

49 * 

c 

C 2 -WINDAGE COEFFICIENT (ANALYTIC DEFAULTI 

CO DOG 7 

D 01 C 3 

50 * 

c 

PI -INPUT POWER, KW 

000007 

00103 

51 * 

c 

EFl -INPUT PRODUCT EFFICIENCY 

cocoa? 

CC 103 

5 2 * 

c 

MPl -INPUT KAXIhUM charging RATE,KW 

000307 

00103 

53 * 

c 

RAP -RATED POWER, CHARGE OR DISCHARGE, KW 

O 0 CO 07 

00103 

54 * 

c 

REl -DISCHARGE LOAD REQUEST, KW 

0 CGCO 7 

CO 10 3 

5 5 * 

c 

EO -MINIMUM ALLOWABLE STORAGE CAPACITY.KWH 

CO 0007 

00133 

56 * 

c 

El -MAXIHUH ALLOUAaLE STORAGE CAPACITY.KWH 

00 GCC 7 

CD 1 D 3 

57 * 

c 

EOE -ENERGY 0 EA 04 AND FOR PRIORITY RESQUENC 1 M 6 ,KWH 

G 00 D 07 

0 D 103 

58* 

c 

CM -MAINTENANCE COST/YEAfl,S 

DO 0007 

00103 

5 9 * 

c 

CC -CAPITAL COST/ YEAR , 5 

COOOD 7 

C 01 D 3 

60* 

c 


OOCOG 7 

00103 

61* 


COMMON /CIHPL/IMPL ,TCHT/CTIME/TIMr/CSIKUL/DUM( 7 l ,T mAK 

0 C 0 CC 7 

C 01 D 3 

6 2* 


X /COST/CCI.CMI 

C 0 CCC 7 

GDI O') 

63 * 


real KE,KED,MP2,TNT,ME,MPC,MP0,KF,HP1,MP0,MPA,MPB 

CO ODD 7 

^C105 

64* 


dimension CL 0 { 1 ),CL 1(11 

0 D 0007 

C 0105 

65 * 

c 


CDOnCT 

CDIOD 

66* 


IFdHPL.GT .riJGO TO 10 

GOCOQ 7 

101 10 

67* 


TINC=nUM( 71*.5 

G 000 I 2 

lOlIl 

&:P* 


irtC2.E0..99999)C2-(l .09O6E-7 J*(PR** .8) *(RF** 4 . 6 * 2 . 3 *ZE*(RF** 3 . 6 J J 

COUCl 5 

G 0113 

69 * 


INT=G. 

000045 

C 011 «i 

70* 


TMAXl=TKAX*. 99999 

CCCU46 
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Goim 

71* 

C 




CQC046 

nous 

72* 



«r=o. 


oroos 1 

0DU6 

73* 



RtirO. 


COCOS 2 

lDIIT 

74* 



8rc=Q, 


C00053 

CCI2J 

75* 



M P D " ^ • 


000054 

CC121 

76* 



SPC^O. 


C0C05S 

CDI22 

77* 



SPD=0. 


0CC056 

00123 

78* 


10 

CONTTHUC 


£00360 

00124 

79* 



.5*H«*3.766J6E-7 


£0006 0 

0C125 

ac* 



GlrKf vUT*SR»l .3558F.-3 


CO DC 6 3 

00126 

81 * 



IF( ( (KE .GT.ro) . 8N0., Ocr.tr.Ell ) .OR . (IMPL.NE.2 ) IGO 

TO 20 

CO0O7C 

D0130 

82* 



irr8E.LE.E0 IVRITE Hi, 1 08 IKE.ro 


£30115 

00.135 

83* 



TFIKE .GE .El ItfRITE ( 6 , 1 09 IKE ,E1 


CGG130 

CO 142 

84* 


109 

F0fiPAT<lH0,26H flywheel KINETIC ENERGY ,F12.3, 


C00143 

C3142 

85* 



X leH EXCEEDS CAPACITY ,F12.3I 


000143 

0014 3 

86* 


108 

F0RMAT11H0,24H FLYWHEEL KINETIC ENERG Y , F 1 2 . 3 , 


00014 3 

C0143 

87* 



X 32H FALLS HELOU MINIMUM REQUIREMENT ,F12. 31 


000143 

00 144 

68* 



ICNT=1CNT*1 


000143 

CGI 4 5 

89* 


20 

CONTINUE 


000147 

0D146 

90 • 



HFRS=rL0(2) 


C0C147 

CD147 

91* 



MKlrciCIJl 


00C1S5 

D0150 

92* 



M4=NNT«4 


000164 

00 151 

93* 



NN4-M4*NNR5 


C00166 

00152 

94* 



NKMRSr:CLlf2 1 


C0017D 

0C153 

95* 



NNNRS4=NNNRS*4 


CC0177 

00154 

96* 



Tore. 


C0G20I 

CC155 

97* 



Tiro, 


CCC202 

00156 

98* 



P2r0. 


CD0203 

OC157 

99* 



PL ore . 


000204 

00160 

100* 



PL1=0. 


£00205 

00161 

101* 



RE2-0. 


000206 

C0161 

102* 

c 




COC206 

CC161 

133* 

c 


compute rotor speed 


CCD206 

00161 

104* 

c 




C0D2Q6 

C0162 

1 ^5 * 


ICO 

OKEGArl.E-6 


CCC207 

0016 3 

10 6* 



IFIKE.GT.C. 10MEGA-SQRT(KE/AKV 


000211 

C0165 

107* 



R5= 0PEGA*3D./3.14 159 


C0D223 

00166 

1D8* 



PiNrO. 


D0C227 

00166 

IC9* 

c 




CQC227 

00166 

110* 

c 


COMPUTE POUEH LOSSES AND NET POWER WHEN 

charging 

C00227 

3C166 

111* 

c 




C0D227 

00167 

112 * 



IF<P1 .EQ .0. IGO TO 200 


CP 02 30 

0G171 

113* 



T0rpl»737.62OMEGA 


G00236 

CD172 

114* 



PL0rTPLU2 (R5 ,T 0 , CLO (M4 1 ,CL0t4 ),CL0IMN4 1 ,1 ,1,-NNRS 

,-NNT,NNRS,HNTI 

CDC242 

00173 

115* 



PINrpi-PLO 


C0C272 

DC174 

116* 



POUT=0. 


000274 

CGI 74 

117* 

c 




000274 

00175 

IIS* 



IFI PlN.GE .0 . IGO TO 200 


000275 

C0177 

119* 



IF 1 IMPL.NE.21G0 TO 200 


C00277 

00001 

120* 



WRI7Ef6,2CaiPL0,PI 


£00302 

00205 

121* 


208 

F0RMAT(1H0,21H flywheel POWER LOSS ,F12.3, 


GD031 1 

002GS 

122* 



X24H EXCEEDS CHARGING POWER ,F12.31 


0DG31 1 

00206 

123* 



1CM = 1CNT*1 


CO £31 1 

D0 2C6 

124* 

c 




C0C311 

D0ZO6 

125* 

c 


COMPUTE POWER LOSSES AND OUTPUT POWER 

WHEN DISCHARGING 

00031 1 

00206 

126* 

c 




CD 031 1 

C0237 

12 7* 


200 

rrrREl.EQ.O. IGO to 30G 


000315 
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0C2iI 

12 E4 


TlrSri*737.6/0HE:GJl 

00031 b 

C0212 

129* 


PLi =TPLU2 IRS,-7 l.CLOl W4 J ,CLO{ 4},CL0«HN4 1,1 ,1 ,-NNRS ,-NNT ,KNRS ,RN7) 

000322 

00213 

130* 


P2-re;i-pli 

D00357 

C0214 

131* 


PPU7-RE1 

000361 

00215 

132* 


inP 2 .GT. 0 .. 0 R.IMPL.NC. 2 >G 0 TO 300 

CD 036 3 

00 217 

133^ 


WRITr{6,3Q8)PLl,REl 

C0Q376 

GO 22 3 

134* 


3C8 FORHATI IHG, 16H FLYWHCEL LOSS ,F12.3, 

00 04 0 5 

DD223 

13S* 


X27H CXCFEDS DISCHARGING POUER ,F12.3| 

C-DC4 0 5 

00224 

1I6« 


1CNT=ICNT*1 

000405 

0D225 

137* 


P2=D. 

0Q041 C 

CC225 

130* 

C 


CO 04 1C 

00225 

139* 

c 

COMPUTE POWER LOSSES WHEN DISEMGAGED 

C0C410 

00225 

14C* 

c 


00041 C 

00226 

141* 



00041 2 

00226 

142* 



000412 

0022S 

143* 


3D0 irtPl.GT.D.lGO TO 400 

C00412 

00230 

144* 


IFIREl.GT.O.IGO 10 400 

000414 

00232 

145* 


P0UT=TBLU1IRS,CL1I41,CL1 fNNKRS4 1, 1,-NNWRS> 

000421 

00232 

146* 

c 


00 04 2 1 

0 0232 

14 7* 

c 

flywheel KINETIC EnCrSY BALANCE 

C0C42 1 

00232 

140* 

c 


000421 

00233 

149* 


4C0 IF< IKE.NE.OJKEO=PIN-POUT-C1*OMEGA-C2*«OHEGA**2.8» 

C0044 0 

00233 

150* 

c 


CC0440 

00233 

151* 

c 

HAXIHUM CHARGING POWER REQUEST 

000440 

00233 

152* 

c 


000440 

00235 

15 3* 


1 M=MP 1*737 ,6/OHEGA 

000456 

00236 

154* 


MPArTBLU2<RS,TM,CL0«M‘( I ,CL0I4 »,CL0IMN4I ,1,1,-NNRS,-NNT, 

C0C462 

00236 

155* 


X nnrs,nnt» 

CD 04 6 2 

00237 

156* 


HP0=HP1-MPA 

DC0516 

00240 

157* 


IFIMPO.GT.0.160 TO 500 

000520 

00242 

ISB* 


IFUHPL.£0.2IWRITFI6,5D8)HPA,MP1 

000522 

G0247 

159* 


508 F0ftHATliHQ,2ZH FLYWHEEL CLUTCH LOSS ,F12.3, 

030534 

D02<»7 

16 lJ* 


X 31H EXCEEDS MAXIMUM INPUT POWER jFI2.3» 

000534 

00250 

161* 


1F(IHPL.E0.2I1CNT-1CNT*1 

CDQ534 

0C252 

16 2* 


CO TO 600 

C00S42 

0C253 

163* 


500 EF0=EF1*HP0/mP1 

CDD644 

00254 

164* 


APC= AHAXl (0.1 <E1-KE>/0UMI7)> 

000547 

00255 

16 5* 


Rf2-AMIN1 (HPO,RAP,APC> 

000557 

00256 

166* 


RE2=RE2/EF0 

000571 

00256 

167* 

c 


CDD571 

00256 

16B« 

c 

OUTPUT EFFICIENCY AND MAXIMUM POWER 

D0D571 

00256 

16 9* 

c 


00Q571 

DQ257 

170* 


600 RaPT=«KE-E0)/(TTNC*2. I 

000574 

00260 

171 * 


RAPT=AH1N1 (RAPT.RAPl 

000601 

00261 

17 2* 


RAPT=AHAXlCRAPT,RAP/irOO.) 

000606 

00262 

173* 


IM=R APT *737. 6 /OMEGA 

DDC615 

00263 

174* 


MFD = TPLU2(RS,-TM,CL0(M4),CL0( 4>,CL0IHN4 1,1,1 ,-WNRS,-NNT, 

C00620 

00263 

175* 


X NNRSiNNT) 

000620 

00264 

176* 


HP2=RAPT-HPB 

000655 

00265 

177* 


IF<MP2-gT.O..OR.1HPL.NE.2)GO to 700 

000657 

0Q26T 

170* 


708 FORMAT! 1H0,22H FLYWHEEL CLUTCH LOSS ,F12.3, 

C0C672 

00267 

179* 


X27H EXCEEDS DELIVERABLE POWER ,F12.3> 

000672 

0 0273 

103* 


WRITE (6 ,708 IhPB.HApT 

CD0672 

00274 

lei ♦ 


ICNT-ICNT-*! 

C00701 

C0275 

162* 


700 MP2-AMAX1 (MP2, RAP/1000. 1 

UC0705 

0C276 

18 3* 


EF2=HP2/RAPT 

00071 3 

00277 

184* 


IFJREl.GT .0 . .AND.P2.GT.D. lEF2=P2/flEl 

DDD715 
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00277 

IS 5* 

C 


C0D715 

00277 

186* 

C 

PRIOR m IHTERBUPT 

C0071S 

00277 

157* : 

C 


GC07I5 

GC3C1 

IBS* 


EC1=E1-EDC 

000734 

G0332 

159» 


£C0=E04EDE 

000757 

00JO3 

^ I9C* 


I r ( t XE . ST . EC 0 1 . KU 0 . 1 1 H T . E 0 . 1 . J 1 IKT= 0 . 

CD0742 

003S5 

1 91* 


If C tKE.L7.ECil.*N0. tIMT.EO.-l.l 11MT=0. 

000760 

0GJ37 

192* 



CC0776 

D0JP7 

19 5* ■ 


ir (KC*L£ 400 HKT=I . 

CD0776 

00311 

194* 


IF{KE,DT,E1 )1MT=-1, 

001CD4 

DO 31 3 

195* 


IPifXr.ST.ECOl.tHD. fKE.LT.ECl 11XMT=0. 

001012 

00315 

19fe* 


IF UHPL . tE 4 IIRETURH 

CO 1031 

C0315 

197* 

c 


CO 133 1 

00315 

198* 

c; 

STATISTICS 

001031 

fiCiis 

199* 

c 


00:1031 

00:317 

200* 


KF=*KAXl{rE,KEi 

C0IC40 

!CO320 

201* 


MPC-AB'AXI IMPC ,K.ED J 

C01C46 

0C3ZI 

202* 


MPOrAMklCJ (MnD,-KEDl 

ODIOSA 

DO 522 

203* 


SPCrSPC*TlHG*Pl 

001062 

00523 

234* 


SPD~SPD*1IUC»FZ 

001066 

DO 523 

2G5* 

c 


CD 106 6 

0 032'< 

206 * 


irtTl.-E.LT.TMAXllRETUBK 

001072 

00326 

207* 


CCI=CCX*CC 

CO110I 

6C327 

2C6* 


C«1 = CHI »CH 

SOI 104 

00327 

209* 

c 


C0I104 

00330 

210* 



coll 07 

C;E330 

211* 


RE7URH 

001107 

CO 331 

212* 


END 

001332 




7.9 ONE DIMENSION TABLE LOOKUP 




FIN 


Tables 

FTA 


Descr i Dt i on 

Tabular values of function 


I nputs 

Parameter/ Port 

FIN Input quantity 

AN ABS(AN) 5 0.5 for equispaced interpolation 

(AN < 0 prevents extrapolation) 

Outputs 

Var i ab I e/Port 

F0 Output quantity 

Calculation Sequence 

F0 = FTA(FIN) 

NOTE: A maximum of 18 points is allowed in the table. 
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SUBROUTIht FU ENTRY POJNT 000065 

STORICC USED CODE <1 I 000075 j D*TA (0) OODDIR; BLANK C0MH0N«2> OOOOOO 

EXTERNAL REFERENCES IBLOCK, NAME! 

0003 TPLUI 
DOCK NERB3* 

STORAGE ASSIGNMENT TYPE, RELATIVE LOCATION, NAMEI 

0000 C00C05 INJPS QOOO 1 000002 N COOQ I OOOOOO NA 0000 I OOOCOI N8 0003 R OOOOOO TBLUl 


COIQO 

1* 

CFU 





DD0003 

ociai 

2* 


SUBROUTINE FUIFT A ,F0 ,FIN,AN1 




CD0D03 

OClOl 

3* 

C 





GQ0003 

GCiOl 

A* 

C 

PURPOSE - TO CALCULATE OUTPUT FO 

AS AN ARBITRARY 

FUNCTION OF 


0DCDC3 

DDlOl 

5* 

C 

INPUT FIN USING TABULAR 

INPUT FTA GIVING FO=FJFIN» 


C0DD03 

CClOl 

6* 

c 





C00D03 

roioi 

7* 

c 

method -self explanatory 




000003 

LOICI 

8* 

c 





CDC303 

QOlOl 

9* 

c 





CCG003 

COlOl 

1C* 

c 

LIMITATIONS - MAXIMUM ARRAY SIZE 

IS 18 



C0GC03 

DOIOI 

11* 

c 





D000Q3 

DOiOl 

12* 

c 





CDC003 

DQIOI 

13* 

c 

WRITTEN BY - ADAM LLOYD 

LATEST REVISION APRIL 

77 

CD0DC3 

COIDI 

14* 

c 





000003 

COlOl 

15* 

c 





CCCG03 

OQIOI 

1 6* 

c 

input/output list 




GO GGC 3 

CDiai 

17* 

c 





C0D003 

OCIOI 

16* 

c 

FTA TABULAR INPUT F0=F(FIN1 ANY 

INPUT 

TABLE 

C000D3 

ODiOl 

19* 

c 

FO OUTPUT 

ANY 

OUTPUT 

VAR 

C0DC03 

COlOl 

20* 

c 

FIN INPUT 

ANY 

INPUI 

VAR 

C0C,0G3 

POlOl 

21* 

c 

AN SET ABStA N) ,GT.O.S FOR 

UNEOUAL SPACED 

table data- — 

INPUT 

CC00D3 

uDiai 

22* 

c 

SET ABS( AN) .LE.0.5 FoR 

EOUl-SPACEO TABLE DATA 


CO0D03 

EDIOI 

23* 

c 

A NEGATIVE VALUE OF AN 

WILL 



CQCQQ3 

COlOl 

24* 

c 

PREVENT EXTRAPOLATION 

BEYOND 



000E03 

noiDi 

25* 

c 

TABLE LIMITS 




C00D03 

COlOl 

26* 

c 





CCQGD3 

00103 

27* 


dimension FTAU ) 




C0CC03 

00104 

2fl* 


NA= SIGN<FTA(2) ,AN) 




000003 

L0105 

29* 


NP=FTAC2)«4 




CCOOIE 

DD1Q6 

3C* 


Nri 




CCDQ26 

0Q1D7 

31* 


IFI ABSCAN) .LE.0.5) N=0 




CCGD30 

0011 1 

32* 


F0=TBLU1 (FIN, FTA(4 ) ,FTA fNB »,N ,Na» 



CDC035 

CO 112 

33* 


RETURN 




C00053 

DQ113 

34* 


END 




00C074 



7-10 TWO DIMENSION TABLE LOOK' 



TabI es Description 

FTA Table of functional relationships (maximum 

number of table values = 144) 


Input quantity (primary) 

Input quantity (secondary) 

ABS(AN) < 0.5 for equal spaced FNA data-jf* 
ABS(BN) < 0.5 for equal spaced FNB datatJ- 

Outputs 

Variable/Port 

FO Output quantity 

Calculation Sequence 

F0 = FTA (FNA, FNB) 


•iJ- A negative value for AN or BN prevents extrapolation beyond the table 
boundaries. 

BCS 40180-2 


I nputs 

Parameter/Port 

FNA 

FNB 

AN 

BN 
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SUBROUTINE FV ENTRY POINT 000161 

storage used CODEfll C0020<i; DATAIO) 000036; BLANK C0NH0NI2I OOOOCO 

EXTERNAL REFERENCES IBLOCK, NAME! 

0003 TBLU2 
aOO«l NEBR3S 

STORAGE ASSIGNMENT (BLOCK, TYPE, RELATIVE LOCATION, NAHE> 

□000 CC0012 INJPS CCOO I 000006 NAN 0000 1 000007 NBN 0000 I OOOOOO N1 0000 I COOOOl N2 

0000 I CDC002 N3 OOCO 1 000003 N<i 30Q0 I 000004 NS 0000 I 000005 N6 0003 R COOOOO TPLU2 


00100 

1* 

CFV 




000003 

OOlOl 

2* 


SUBROUTINE FV (FT A , FO,FNA, FNB, AN,8N ) 


000003 

00101 

3* 

C 




C0C003 

00101 

4* 

C 

PURPOSE 

- TO CALCULATE OUTPUT FO AS AN ARBITRARY FUNCTION OF INPUT 


000303 

00101 

S * 

C 


VARIABLES FNA AND FNB. INPUT TABLE FTA IS USED GIVING 


C00003 

COICI 

6* 

C 


F0=F(FNA,FNB1 


C00003 

DOlOl 

?♦ 

C 




00CO03 

OCIDI 

E* 

C 

method 

- TWO DIMENSIONAL TABLE LOOKUP’ 


C00003 

OGlOl 

9* 

C 




000003 

00101 

ID* 

C 




C00C03 

COIDI 

11* 

c 

limitations - MAX ALLOWABLE SIZE OF TABULAR ARRAY IS 12X12, 


OQOOE3 

00101 

12* 

c 




CDC003 

CDIQI 

13* 

c 




COC003 

00101 

14* 

c 

WRITTEN 

BY - GEORGE OULEBA LATEST REVISION NAY 

76 

CO0C02 

GDlOl 

15 * 

c 




000003 

00101 

16* 

c 




000003 

■00101 

n* 

c 

input /OUTPUT LIST 


000003 

•JO 1 0 1 

ie* 

c 




00ODO3 

DClUl 

1 9* 

c 

FTA 

TABULAR INPUT INPUT 

TABLE 

CCC003 

COlOl 

2C* 

r 

FO 

OUTPUT ANY OUTPUT 

var 

C00005 

POIDI 

21* 

c 

FNA 

INPUT A ANY INPUT 

VAR 

G00C03 

OQIQI 

22* 

c 

FNB 

INPUT B ANY INPUT 

VAR 

000003 

COICI 

23* 

c 

AN 

SET ADSIANI .Gt. 0.5 FOR UNEQUAL SPACED FNA DATA- INPUT 

PARK 

D000Q3 

CD 101 

24* 

c 


A NEGATIVE VALUE INDICATES THAT THE NEAREST END 


D0UDQ3 

COlOl 

25* 

c 


POINT IS TO BE USED UPON EXTRAPOLATION. 


C0C003 

uDlOl 

26* 

c 

BN 

SET ABS(9N) .gt. 0.5 FOR UNEQUAL SPACED FNB DATA- INPUT 

PARM 

0CD0C3 

roioi 

27* 

c 


A NEGATIVE VALUE INDICATES THAT THE NEAREST END 


CDC003 

liDlQl 

28* 

c 


point is to be used upon extrapolation. 


000003 

GOIDI 

29* 

c 




000003 

C0103 

30* 


DIMENSION FTA (1 1 


CCC003 

CC104 

31* 


N1=FTA(3)«4 


C0C003 

coins 

32* 


N2=rTA(2l*FTA(3 1*4 


OCCOl 4 

C-D1C6 

33* 


N3=FTA(2) 


000026 
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30107 

3^♦ 

HM-FTM3I 

000035 

CDllD 

35* 

N5= S1GN(FT»(2J ,ANI 

OOOOMM 

coin 

3b* 

N6= SIGNIFTAt3» *BN» 

OOOC5G 

00112 

3.'* 

KAN = 1 

CDC070 

00113 

3E* 

1F( AB5( AN) .LC.Q.Sl NAN=0 

000072 

00115 

39* 

MPN=1 

000077 

0 □ 1 1 6 

MO* 

irCABSIBN) .LE.Q.5) NBN=D 

000101 

C.0J20 

m* 

F0::TBlU2tFNA.rNBtFTA(Nl ),FTA(M) .FTA<N2) tNAN,NBN«NS,N6.N3«NM l 

OOOllM 

CO 121 

M2* 

RETURN 

CD01M2 

00122 

M3* 

END 

000203 



7-11 AC INDUCTION GENERATOR 



POWER (PI) 

INPUT EFFICIENCY (EFl) 
INPUT MAX. POWER (MPl) 



POWER (P2) 

ROTOR SPEED (RS) 

OUTPUT EFFICIENCY (EF2) 
OUTPUT MAX. POWER (MP2) 


The induction generator produces electrical power proportional to rotor slip, 
i.e. difference between rotor speed and synchronous speed. This relationship 
is used to compute rotor speed given input power and the generator parameters. 
Two power losses are modeled; a constant multiplicative term due to resistive 
heating and an additive term due to mechanical friction. Default parameters 
are based on a conventional squ i rre l-cage induction motor/ generator machine. 
This component can also be used as a synchronous generator with RAS-.Ol. 


Basic Equations 

Output power P2 and rotor speed RS are computed from the 


P2 = EE^«-(Pl-C^fRS^) 


PS 

RAP 


(RS/RSY-1) 

RA5 


(Power is proportional to 


following equations: 


si ip) 


where EE = electrical efficiency 
C = constant of conversion 
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GE 


1 nouts 




Parameter/Port 

Description 

ualls 

P 

1 

input power 

kw 

RAP 


Rated output power 

Kw 

RSY 


Synchronous rotor speed (D 1800) 

rpm 

RAS 


Rated power slip (D = 0,05) 

- 

DA 


Mechanical damping iD = 0.0) 

jou 1 e-sec 

PR 


internal stator resistance (D - 6.4/I^P) 

ohms 

\0 


Rated bus voltage (D = 400) 

volts 

U 

i 

Input product efficiency 

- 

w 

1 

Maximum input discharge rate (D -■ 1x10 '’^i 

kw 

cc 


Capital cost/ year 

$ 



Maintenance cost/year 

$ 

iJuilfiyis 




Vai” i ab i e/Port 



P 

. 

Output power 

kw 

*,L 


Electrical efficiency 

- 

i^lS 


Rotor speed 

rpm 

PL 


Power 1 OSS 

kw 

I'l 

t-S 

Output product efficiency 

- 

MP 


Maximum output discharge rate 

kw 

Stat i :>t 1 cs 



MPfJ 


Maximum output power/rated power 

kw 

3P 


Total output energy 

kwh 


l> - Default val uesj suppi i eti, 

BC5 401B0-2 


GE 


Calculation Sequence 


1) First pass only 
EFF = 1 


'rat 

EE = 


= RAP-:tlOOO/V0 

RAP 

RAP+SR-S-! J^^/1000 


2) If PI = 0 set P2 =0, RS = RSY and go to 4) 
Compute rotor speed (jJ in rad/ sec using 

EEiPl^tiooO - 0 )^*DA ) {(jO/O) - 1 ) 

o 

RAPitiooO “ RAS 

with 0 ) = RSY-5K2TT/60) 
o 

3) Compute RS and output power 

RS = a3*(60/27T ) 

P2 - RAP(RS/RSY-1)/RAS 
P2 > RAP O diagnostic 
EFF = P2/P1 

4) Compute loss, efficiency terms 

PL = P1-P2 
EF2 = EFl-^EFF 

5) Compute maximum output rate 

MP2 ^ Ml N { RAP ,MPl-5t£FF ) 

6} Compute Statistics and Costs 
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SUBROUTINE 6E TNIRY i'OINT 000253 


STORAGE USED CODE U > Q00363; OATAtOI OOOQB3; BLANK C0KH0N(2I 000000 

COMMON CLOCKS 

D003 CIMPL 000002 
OOOB CTImE OOOCOl 
Q0D5 COST OOOOQB 
0006 CsiHUL OOColO 


EXTERNAL RErERENCES (BLOCK, NAME* 

0007 NWOUS 

0010 NI02S 

0011 NERR3S 


II 

ft 

a® 


STORAGE assignment (BLOCK, TYPE, RELATIVE LOCATION, ! AMEJ 


0001 


0CQG6<t 

IQL 

0000 


000005 

lOOF 

0001 


000074 

20L 

0001 


000172 

30L 

OOCO R 

CO 000 3 

A 

0000 

R 

OCOCOB 

B 

0005 

R 

000000 

CC 

0005 

P 

000001 

CM 

0005 


000003 

Cv 

COOS 

CC0CQ2 

CO 

0006 


COODOO 

DUM 

0003 

R 

oocaoo 

EFF 

0003 

I 

OOCDOl 

1C NT 

0003 

I 

ODOCCO 

IMPL 

OCCC 

00C032 

INJPS 

3000 

R 

000002 

RATI 

OCOM 

R 

OOOQOQ 

TIME 

0006 

R 

000006 

TlNC 

0006 

R 

000007 

THAX 

0000 R 

OOOCOl 

THAXl 


CClOO 

1* 

CGE 


CDQDOC 

COlOl 

2 * 


SUBROUTINE GE (P2 ,CE , RS , PL ,EF2 ,PM2 ,PMN, SP ,P 1 ,R AP ,RSV ,R AS , DA ,SR , VO, 

DDOOOD 

00101 

3* 


1 EF1,PM1,CCI,CH1» 

COOQDC 

COlOl 

4« 

C 


COCOCC 

00101 

5* 

C 

PURPOSE model AC INDUCTION GENERATOR 

COOOOO 

COlQl 

6* 

C 


000-30D 

DOlOl 

7* 

C 

method mechanical and ELECTRICAL EFFICIENCIES ARE USED TO COMPUTE 

COODGC 

COlOl 

8* 

C 

OUTPUT POWER. ROTOR SPEED IS COMPUTED ASSUMING POWER IS 

0CC030 

COICI 


C 

PROPORTIONAL TO SLIP. 

cocooo 

''•Old 

lO# 

C 


CDOOOO 

00101 

11* 

C 

URITIEN BY A.U. WARREN VERSION 1, MARCH 16 1977 

COCOOO 

00101 

12* 

c 


OOGOOC 

UOlOl 

13* 

c 

CALL SEOUENCE 

DODOOC 

00101 

14* 

c 

OUTPUTS 

COCCOC 

00101 

15* 

c 

P2 - OUTPUT POWER, KW 

GODODO 

CDlOl 

16* 

C 

EE - ELECTRICAL EFFICIENCY 

C30DD0 

COlOl 

17* 

c 

RS - ROTOR SPEED, RPM 

DCGOOG 

COlOl 

18* 

c 

PL - POWER LOSS, KW 

CGCGOO 

UOlOl 

19* 

c 

EF2 - OUTPUT PRODUCT EFFICIENCY 

rocooc 

COlOl 

20* 

c 

PM2 - MAXIMUM OUTPUT POWER, KW 

CDGGOD 

r.0101 

21* 

c 

PMN - MAX. OFSERVED OUTPUT POWER / RATED POWER 

CDuOOQ 

00101 

22* 

c 

SP - TOTAL OUTPUT ENERGY, KWH 

DODDOO 

COlOl 

23* 

c 


CDCono 


CD 

m 
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SCIOI 

24* 

C 


INPUTS 


CDCCOC 

COlOl 

25* 

c 


PI - INPUT P0W5R, KW 


COOCDD 

tcioi 

26* 

c 


RAP - RATED OUTPUT POWER, KW 


CO DCO'3 

00101 

27* 

c 


RSY - SYNCHRONOUS ROTOR SPEED, RPNN 


E0C0D5 

CCIDI 

26* 

c 


RAS - RATED POWER SLIP IDETAULT = .C5I 


CDCOOS 

OClOl 

29* 

c 


DA - HECHANICAL DAMPING, JOULE-SEC 


COCOOC 

DOIOI 

30* 

c 


SR - STATOR RFSISTANCE, OHMS 


cccaoc 

ooiai 

31* 

c 


VO - RATED PUS VOLTAGE, VOLTS 


COCDDC 

Doiai 

32* 

c 


EFl - IHPUT PROOUCI EFriCIFfJCY 


C3 COCO 

C.DI01 

33* 

c 


PHI - MA'XIMUH INPUT POWER, KW 


CCGCOO 

.OlJl 

34* 

c 


CCT - CAPITAL COST/YFaR, » 


CCCODC 

CO 101 

35* 

c 


CHI - HAlMTEl.AtlCE COST/YFAR, * 


CO uC 0 C 

CD 10 1 

36* 

c 




PODODC 

00103 

37* 



COMMON /CIMPL/ IMPL.ICNT /CTlHE/ TIME 


OOCOOC 

00104 

3B* 



COMMON /COST/ CC.CM.CC.CV /CSIHIJL/ OUH f 6 1 , TI NC, TM AX 

COOCDC 

00134 

39* 

c 


INTTI ALIZA TTON 


CODODC 

3C104 

40* 

c 




CDDCOC 

COIGS 

41* 



IFl IHPL.GT.O) GO TO 10 


0CLOC.C 

f 0137 

42* 



EFF = 1. 


C0D002 

toiio 

43* 



THAXI = TMAX* .99999 


COC004 

'0111 

44* 



irtRSY.EO. .99999) RSY r 1800. 


CDCC07 

00113 

45* 



IFIRAS.EQ. .99999) RAS = .05 


ODDOl 4 

00115 

4 b* 



IF«OA .EO. .99999) OA = 0. 


0DC02 1 

con 7 

47* 



irtSR .EO. .99999) SR i 6.4/RAP 


000025 

CC121 

4E* 



IFIVO .EQ. . 99999 ) VO =4^0. 


C0L033 

0G123 

49* 



irtPHl.EO. .99999) PHI = I.EIO 


CGC040 

C0125 

5C* 



PPN =C.O 


C0LQ45 

C0126 

51* 



5P rp.C 


DCC04 6 

C0127 

52* 



RATI - RAP*1CC0./V0 


C0004 7 

C0133 

53* 



EE - RAP/(RAP * 5R*.001*RATI**2) 


000053 

00133 

54* 

c 




000053 

DO 133 

55* 

c 


COMPUTE ROTOR SPEED AND OUTPUT 

POWER 

COG053 

CC130 

56* 

c 




GO COS 3 

00131 

57* 


10 

JFt Pl.GT. 0. ) GO TO 20 


000064 

00133 

58* 



P2 =0.0 


L 0006 6 

00134 

59* 



PL =0.C 


C00C67 

00135 

6C* 



RS = PSY 


CDG07C 

00136 

61* 



GO TO 30 


CO 00 7 2 

GC136 

62* 

c 




CC0D72 

00137 

63* 


20 

A = RAP/(EE*RAS) 


000074 

00140 

64* 



B = RSY/T A * RSY**2*DA*1.0966E-5I 


CDOXOO 

LD141 

65* 



RS = P*(A ♦ PI) 


OOCllD 

C0142 

66* 



P2 = RAP*tR5/RSY -1,)/RAS 


GCC114 

00143 

67* 



IF IP2.GT.RAP.AHD.IMPL.E0.2) WR1TE«6,1Q0I 


000121 

00146 

68* 


IDC 

FORMAT! IHO, 4 OX , 3 7 HGCNEP ATOR OUTPUT EXCEEDS HATED 

POWER /) 

000143 

00146 

69* 

c 




000143 

D0147 

7D* 



Tr«P2.GT.RAP .AND. TMPL .EO . 2) ICNT=ICNT* 1 


000143 

00151 

71* 



PL = PI - P2 


00016 3 

00152 

72* 



EFF = P2/P1 


CO 016 6 

00153 

73* 


30 

EF2 = EF1*EFF 


CC0172 

00154 

74* 



PH2 = AMlNltRAP, PM1*EFF) 


CC0174 

D0154 

75* 

c 




GCD174 

00154 

7(* 

c 


STATISTICS 


COOl 74 

CO 155 

77* 



IF 11KPL,LE. 11 RETURN 


CD0203 

:C157 

7fl* 



PMN = AHAXIIPMN, P2/RAP) 


cnc?i 2 

DC 1 60 

7 9* 



SP = SP ♦ P2* .54TXNC 


CCo221 

00160 

80* 

c 




CCC221 


n 

m 
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►-» 

c?\ 

fO 


00160 

81* 

C 


00161 

82* 


IFI TTME.LT.TMA*! 1 

00163 

B3* 


CC = CC ♦ CCI 

0D16M 

S'!* 


Cm r CM ♦ CHI 

0D16^ 

85* 

c 


00165 

86* 


return 

0C166 

87* 


END 


COST SUMMATION 
RETURN 


C0D22 I 
000226 
CC0235 
C0u2‘t0 
OCC2*<C 
CCD2M 3 
000262 


n 

m 



7.12 FIXED RATIO TRANSMISSION 




POWER (PI) 

OUTPUT ROTOR SPEED (RS2 
MAX. INPUT POWER (MPl) 
INPUT EFFICIENCY (EFI) 


This component models a fixed gear ratio transmission. Power losses are mo- 
deled by a table lookup depending on input power. Rotor input speed is used 
as a feedback variable. 


POWER LOSS 


INPUT POWER 

FIGURE 7.12: FIXED GEAR POWER LOSS 
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GR 




teci.„lp.tl.gn 

Uiil,:U 


PoWGt 1 

OGS Vksrsus tnpuV pt.>\var 

k\v 


XmM 

Pai amotor/Poi:t 
GR 

Goal roHo 


a 

Output rotot apoud 

I pm 

P :l 

Input powut" 

kw 

EF i 

Input pruduGt of t Ictuney 

■fii- 

MP 1 

Maximum Input power iDofault a ixlO^) 

kw 

ec 

Capital cost/yoar 

$ 

0\\ 

Malntonanoo eo$t/yoar 

$ 





P 

2 

Output power 

kw 

ro 


Output toiquo 

tt». 

PL 


Power lose 

kw 

Li 

<*v.. 

Output pt oduot offiotoncy 


A\P 

A 

Max t mum ou t pu t povvor 

kw 

R$ 


Input rotor npood 

I pm 


Calculation Sequence 



1) MP2 = MPl - PL0(MP1) (First Pass Only) 
I f Pi < Of set PL = P2 = 0 and go to 2) 

PL = PL0(P1) 

P2 = PI - PL 
RSI = RS2/GR 
EF2 = EFl-ifP2/Pl 

2) TO = P2^t737.6/ (RS2l^2 7T/60) 

3) Compute Costs 
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BCS 40 180 


SUBBOUTINE GR 


ENTRY POINT 00C15Y 


STORAGE USED CODEtll 000237; OATAtOJ 000023; BLANK C0HH0N<2) 000000 

COMMON BLOCKS 

0003 CTMPL DOOOOl 
OOC'l CTIME 000001 

0005 COST 0000D<? 

0006 C51HUL CDODIO 


EXTERNAL REFERENCES IBLOCKs NAME) 

0007 TBLUl 
0010 KEPR3J 


STORAGE 

assignment 

IB LOCK, TYPE 

r RELATIVE 

LOCATIDN» 

NAME) 









0 001 

CD0Q57 

lOL 

0001 

000113 

20L 

0 005 

R 

000000 

CC 

0005 

R 

000001- 

CM 

0 005 

C0C002 

CO 

0005 

000003 

CY 

0006 

DDDOOO 

DUM 

0003 

1 

nooooo 

IHPL 

ODOO 


000007 

INJPS 

QOCD 

I CODOOO 

NP 

0007 R 

COODDO 

TBLUl 

ODOR R 

000000 

TIME 

0006 

R 

C00007 

TMAX 

0000 

R 

000001 

TM*X1 





00100 


CGR 




OOOOQO 

00101 

2* 


SUBROUTINE SR IPLO , P2 , TO ,PL ,EF 2 ,PM 2 , RS 1 , GR A»RS2,P1 .EFl.PMl ,CCI,CMI I 

□OOOOC 

r.0101 

3* 

C 




OOOODO 

COlOl 

A* 

C 

PURPOSE MODEL 

A FIXED GEAR RATIO TRANSMISSTOH 

OCCDOO 

COlOl 

5* 

C 




COOOOO 

CO 101 

s* 

C 

METHOD POWER 

LOSSES ARE INPUT AS A FUNCTION OF INPUT POWER PI. 

COOGOO 

CSIDI 

7* 

c 




00 ODD D 

COlOl 

a* 

c 

WRITTEN 3Y A.W 


WARREN version 1, MARCH 16 1977 

OOODOC 

COlOl 

9* 

c 




CDCODC 

COlOl 

1C* 

c 

CALL SEQUENCE 



CDDODO 

COlOl 

11* 

c 

Tables 



CDGCOO 

OGl 01 

12* 

c 

PLO 

- 

POWER LOSS IN KW VERSUS INPUT POWER IN KW 

CDOGOC 

UOlOl 

13* 

c 




3000CC 

noioi 

I<<* 

c 

OUTPUTS 



COCODO 

DDlCl 

15* 

c 

P2 


OUTPUT POWER, KW 

CDCDOC 

COlOl 

16* 

c 

TO 

- 

OUTPUT TOROUE, FT-LB 

CD COO C 

OOIDI 

17* 

c 

PL 

- 

POWER LOSS, KW 

COGODG 

COlOl 

IS* 

c 

EF2 

- 

OUTPUT PRODUCT EFFICIENCY 

CDODOG 

CClOl 

1°Y 

c 

PM2 

- 

KAXIHUM OUTPUT POWER, KW 

CDL-OOC 

CClOl 

2C* 

c 

RSI 

- 

INPUT POTOR SPEED, RPh 

CDLOOO 

00101 

21* 

c 




COCDCC 

COIOI 

2 2* 

c 

INPUTS 



COCCOC 

OClOl 

23* 

c 

GRA 

- 

GEAR RATIO 

D U3 0 C 

COlOl 

2‘f* 

c 

RS2 

- 

OUTPUT ROTOR SPEED, RPH 

cocaoc 

COlOl 

25* 

c 

PI 

- 

INPUT POWER, KW 

CCUCOD 
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COlOl 

26* 

C 


EFl - INPUT product EFFICIENCY 

COOOOO 

V 

GOlOl 

27* 

C 


PHI - MAXIMUM INPUT POWER* Ktf 

CODQOC 

i 

i.0101 

28* 

C 


CCT - CAPITAL COST f YEAR, i 

GODCOD 


00101 

29* 

c 


CHI - MAINTENANCE COST / YEAR, S 

COOOOO 

% 

coiei 

30* 

c 



CODOOO 

1: 

C0103 

31* 



DIMENSION PLOm 

CCCCOC 

f 

C010^ 

32* 



COMMON /CIMPL/IHPL /CTIME/ TIME 

COuOO u 


00105 

33* 



COMMON /COST/CC,CM,CO,CV /CSIhUL/ DUiim.TMAX 

CDODOO 

1 

C0105 

34* 

c 



000000 

1 

COIOS 

3 5* 

c 


IN1T1AL12A710N 

COOOOO 

1 

00105 

36* 

c 



CO0OOC 

t 

00106 

37* 



NP = PL012I 

OODOOC 

\ 

001C7 

38* 



in IHPL.GT.Ol 60 TO 10 

CO 000 7 

\ 

com 

39* 



EF2= 1. 

000012 

\ 

00112 

4U* 



TMAXl = .99999*TMAX 

COCCI 4 

\ 

00113 

HI ♦ 



RS2=l. 

000021 

\ 

\ 

ooim 

42* 



IFtPMl.EO. .999991 PMl^l.ElO 

CC0023 

\ 

00116 

43* 



PM2 = PMl 

00003 C 

\ 

X 

00117 

44* 



iriPMl.LE. PL0C3*NP) 1 PH2 = PMl-TBLUl { PMl ,PEOt 4 1 ,PtO f4*NP I , 1 , -NP 1 

0C0O32 

f 

CC117 

45* 

c 



000032 

1 

00117 

40* 

c 


POWER LOSS AND ROTOR SPEED CALUCATIONS 

000032 


00121 

47* 


10 

PLrO. 

GO COS 7 

- 

C0122 

48* 



P2=0. 

C00057 


00123 

49* 



IFCPl .EC. 0.1 60 To 20 

0C006 C 


CO 125 

50* 



PL = TBLUHP1,PL0(4 1,PL0I4*NP 1,1,-NPl 

000062 


00126 

51* 



P2 = PI - PL 

C001Q2 


C0127 

52* 



EF2 = EF1*P2/ PI 

000104 

\ 

00130 

53* 



R5l - RS2/GPA 

000107 

\ 

00131 

54* 


20 

IF(fiS2 .GT. 0.1 TO = P2*7D43./RS2 

CGC113 

i> 

00131 

55* 

c 



0001 1 3 


0C131 

56* 

c 


COST SUMMATION 

CDCll 3 

i 

s 

00133 

57* 



iniHPL.LE.il RETURN 

000121 


00135 

58* 



IFITIME.LE.TMAXll RETURN 

C0013D 

i 

) 

00137 

59* 



CC = CC ■» CCI 

0D0137 

j 

coiqo 

6C* 



CM = CM * CHI 

000142 


romi 

61* 



RETURN 

0CC14 5 


CO 14 2 

62* 



END 

CQC236 





7.13 HISTOGRAM 




The input quantity is mon i tored dur i ng a SIMULATE analysis. When time reaches 
TMAX a plotted histogram is produced with 16 intervals that span the range 
from FLO to FUP. 

I nputs 

Var i ab I e/Port 
FIN 
FUP 
FLO 

F1,...F16^ 

FA^ 

Outputs 
Variable/Port 

AV Mean value (running sum during simulation) 

SD Standard deviation (running sum squared) 

SAM Number of samples 


Description 

Input quantity to be monitored 
Upper limit for histogram 
Lower limit for histogram 
Array containing histogram data 
Measurement Interval 


These quantities do not require data Input values. 
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SUttROUtlNT H6 ENTRY POINT OOQRTO 


STORAGE USED COOEdl 000506? OATAIOJ D00166; BLANK C0HH0N(2I 01217R 

COMMON BLOCKS 

0003 CTTME DOOPOI 
□DDH CSIMUL OOOniO 

0005 COVRLY ODOOOA 

0006 CIMPL 000001 


EXTERNAL REFERENCES IBLOCK, NAME) 


0007 

SORT 

0010 

Nunus 

0011 

NI03» 

0012 

M02» 

0013 

MOIS 

DD1«» 

NLRR3S 


STORAGE ASSIGNMENT fBLOCK* TYPE, RELATIVE LOCATION, NAMEl 


0001 


000023 

lOOL 

ccoo 


000052 

100 OF 

0000 


000056 

HOOF 

0001 


000012 

1206 

OCCO 


00C062 

12D0F 

OOCQ 


CD0067 

1300F 

0001 


00003A 

134G 

0000 


000073 

140CF 

0001 


000X11 

15*4 G 

0001 


00015*4 

1666 

0001 


OCOITS 

1770 

0001 


000203 

205G 

0001 


000211 

21 3G 

OCOl 


000216 

220G 

OCOl 


C0D223 

225G 

0001 


0CD22‘t 

230G 

0001 


D0023^ 

236G 

0001 


000257 

2M ;g 

0001 


000272 

2*46G 

0 001 


C00306 

2S5G 

0 001 


DD031*i 

262G 

0001 


0QDQ53 

300L 

0001 


00036*4 

303G 

0001 


00036*1 

305G 

0000 


CCPG*4 7 

9G0F 

0000 

R 

COODIO 

AXl 

0000 

R 

DDC030 

BLANK 

0005 


000DD3 

CPUSEC 

OCCR 


OOOOCD 

DUM 

0 005 


000000 

DUKM 

occo 

R 

CC0C36 

FAX 

0002 

R 

DDCDCD 

GRAPH 

0000 

R 

000032 

H0RI2 

ocoo 

R 

DQODAl 

HX 

coco 

I 

00003*4 

1 

0000 

I 

C-OCoHS 

1C 

0006 

1 

CCDOCO 

IHPL 

0000 


000135 

IN JPS 

DCOO 

I 

000037 

isamp 

ocoo 

I 

0000*4 2 

J 

0000 

I 

CCP04M 

J1 

0000 

I 

0000*45 

J2 

DCOO 

I 

0000*46 

J3 

ocoo 

I 

0C003S 

L 

ocoo 

R 

000033 

POl NT 

0000 

R 

DOOCOQ 

Tni 

000 3 

R 

000000 

TIME 

000*4 

R 

000007 

TH AX 

0000 

R 

000031 

VERT 

DGCO 

R 

0CCC*4 D 

XMAX 


GO 100 

1* 

CH6 





000003 

COlQl 

2* 


SUBROUTINE 

HGtSAMP,Av,SD,Fl,F2,F3,F(4,F5,F6,n,F6 

,F9,F10,F11, 

000003 

CCIQI 

H* 


1 F12,F13,F 

1*4, 

F15,F16,FA, fin, FUP, FLO J 


G0CC03 

00101 

•i* 

C 

VERSION 2 

• 

REVISED MARCH 1977 


C0OC03 

COlOl 

5* 

c 

PURPOSE DEVELOP A RUNNING HISTOGRAM oF AN INPUT SEQUENCE 

000003 

00101 

b* 

c 

CALL SEQUENCE 




D00D03 

0010 1 

1* 

c 

SAMP- 

OUTPUT NUMBER OF 5AMPLFS 


CCDQD3 

ODIDI 

S ♦ 

c 

AV 

- 

OUTPUT AVERAGE (RUNNING SUMl 


CCD003 

CQIOI 

9 * 

c 

SO 

- 

OUTPUT STANDARD DEVIATION (RUNNING 

SUM SOUAREO) 

CQC003 

OClOl 

10* 

c 

F1-F16 

- 

ARRAY WITH nUm3ER OF OCCURENCES IN 

EACH Interval 

COC033 

00101 

11* 

c 

FA 

- 

OUTPUT containing MEASUREMENT INTERVAL 

C00003 

00 101 

12* 

c 

FUP 

- 

INPUT SPECIFYING UPpES MEASUREMENT 

LIMIT 

00C003 

GOlOl 

13* 

c 

FLO 

- 

INPUT SPrClFYlNG LOUER HEaSURCHENT 

LIMIT 

C00003 

00131 

1*1* 

c 

FIN 

- 

INPUT measurement 


CD0003 
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00 103 

15* 


DIHE:NSION FH16»»TDl!0»,»xm6» 

D0C003 

COlOH 

16* 


tn^lCNSION GRAPH ( 114 ,46» 

CDC0Q3 

£0105 

17* 


CCMHOH GRAPH 

000003 

G0106 

18* 


COHMOH/CTIHE/TIHE/CSIMUL/DUMI 71 ,THAX 

C 0 CD 03 

C01D7 

19* 


COHHOf.'/COVRLY/DUHHl3liCPUSEC /CIMPL/IMPL 

CG0C03 

CO 110 

2C* 


DATA PLANK, VERT, HORIZ.POINT/IH , IHI , 1H~ , IH*/ 

000003 

00115 

21* 


IFI JHPL.GT.OJ GO TO 100 

r.0DG03 

C0117 

22 * 


DO 50 I:;i,16 

GC0012 

0D122 

23* 

50 

f 1 ( 1 1 =0 . 

C0CD12 

0012'! 

24 * 


FA= IFUP-FIO J/14. 

OQ-COl 3 

L0125 

25* 


Sf)=C. 

DIDODI 7 

00126 

2b* 


AV =0.0 

CDC02Q 

oD127 

27* 


SAMPzO.0 

C00021 

DD130 

28* 

100 

CONTINUE 

00002 3 

0D131 

2 9* 


IF(IHPL.LT.2» RETURN 

C0C02 3 

DD133 

30* 


DO 2DG 1=1,16 

OOco34 

00136 

31* 


Lrl 

0CO034 

0013 7 

32* 


rAX=FLO*(l-ll*FA 

C0U036 

OOllQ 

33* 


IFIFIN.EE.FAXI GO TO 300- 

C00D45 

C0142 

34* 

2 00 

CON T I NUE 

CD0053 

D01M4 

35* 

300 

FHt)=FlMI*l. 

DOOQ53 

coms 

36* 


SAKP=SAHP*1 . 

£00057 

com6 

37* 


AV=AV»F1N 

CDC062 

001<»7 

38* 


SO=sn«FIN*FIN 

CDQ065 

00150 

34* 


IF(TI»'E.LT.TMAX*.9999 9IRETURN 

L-Li'071 

00152 

40* 


SAMP=3. 

0G0104 

00153 

41* 


DO 350 1=1,16 

000111 

00156 

42* 

550 

SAMP=SAHP*Fim 

CC&ll 1 

CO 163 

43* 


iSAKP=SAMP 

CQ0114 

00161 

4 4W 


1SAPP=hAX011,IS*HP> 

CGC123 

00162 

4 5* 


AV=AV/1SA«P 

CC0130 

0016 3 

4 6* 


Sr/=SORHSD/TSAMP-Ay*AVJ 

CDD135 

00164 

47* 


XKAX=Fltl» 

C0C147 

00165 

4B* 


DO 360 1=1,16 

CDG154 

001 70 

49* 

360 

3FIF1U) .GE.XMAXI XMAX=Flfl» 

C00I54 

C0173 

50* 


IFtXHAX.EO.O. 1 XMAX=1D. 

000163 

00175 

51* 


HX=XKAX/44 . 

CDD167 

UCI76 

52* 


DO 370 1=1,46 

CDG175 

CD2G1 

53* 


GRAPH (1 , I > = VERT 

CD0175 

0C2D2 

54* 

37 0 

GRAPH(114 ,1 »=VERT 

0CG176 

0C20M 

55* 


DO 380 1=2,113 

0C0203 

OC207 

56* 


GRAPHd, 1 )=H0RI2 

000203 

00210 

57* 

3 80 

GRAPH(1,46I=H0RIZ 

00U204 

00212 

58* 


DO 4C0 1=5,103,14 

00021 1 

00215 

59» 

4 CO 

GRAPHH,46I=VERT 

CCD21 1 

00217 

63* 


DO 4SQ 1=8,106,7 

C0G21 6 

00222 

61* 

450 

GRAPHfl, 3 1=VERT 

000216 

0 0224 

62* 


DO SCO 1=2,45 

C0G224 

00227 

63* 


DO 500 J=2, 113 

000224 

00232 

64* 

5 00 

GRAPHlJrl )=PLANK 

C0D224 

00235 

65* 


DO 600 rc=i,i6 

000234 

00240 

66* 


J=1FIX(45.5-F1(1c>/HX1 

000240 

00241 

6 7* 


00 6GC Jl=1.7 

000252 

00244 

68* 


J2=<ir-1 J*7+J1*1 

C00257 

0 024 5 

69* 


DO 600 J3=J,45 

GD0263 

00250 

70* 



C00272 

00250 

71* 

6 00 

GRAPHlxJ2, J3>=P0lNT 

000272 


<2DCC 
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00254 

. 12* 


DO 700 1=1,16 

D02S7 




CG257 

r^,* - 

TOO 

A)tl«I>=Fl{ll/lS»HP 

002bi 

n* 


DO BCD 1=1,8 

0026% 

T6+ 



00264 

'tl* , 

«ao 

7DU1»=FL04 <1-1142 .♦F«-F*/2. 

CO 26 6 

76* 



C0266 

794 


UPITr<6,900>l6R«PH<r,ll ,Irl,114l 

C0271 

604 

900 

FORHATI IHl ,9X,11441/1 

CC272 

81* 


WRltC <6, 1000 » <AXU 1 1,1=1,161 

00275 

824 

1000 

FCRHAT<1H*,9X.1HI, 16F7.5,1HI/1 

00276 

8 34 


WPlTt<6, MODI 

no 300 

84 4 

noo 

FORWAK 1H« ,9X ,1HI,1I2X,1H1/1 

□ 0301 

85 4 


WRITFI6,12 0CM IGRAPHfl.Jl , I =1 . 1 14 1 , J=2 , 46 1 

0C312 

86 4 

1200 

FORMAT^ 1H-»,9X,114A1/4 5< 10X,114A1/II 

C0313 

874 


URltt<6,1300HTDHI J ,1 = 1,8 1 

00316 

884 

1300 

FORHAT llH»,9X,filFl3.5,lXl//> 

0031? 

89 4 


WRlTf <6,14001 ISAHP,AV, SO 

00524 

924 

14 00 

F0nMAT<lH4,lDX,14HHlST0GRAM FOR ,37,8H SAMPLES, 

00 324 

914 


19H MEAN= ,F13.5,18M STaMoaPD 0EV.= ,ri3.S/l 

00325 

9. .4 


RETURN 

CC326 

93 4 


END 



0Q0306 

C0030b 

000306 

C0C314 

00C314 

CCC314 

C0C33C 

000330 

CCC34Q 

C00340 

C003SC 

COG3SO 

OOC355 

0003S5 

000367 

GC0367 

000377 

C00377 

0CD407 

C0D4C7 

000407 

000505 
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7.14 hydro storage vessel 


RESERVOIR. MASS MA 


INPUT FLOWRATE (Ml) 

MAX. INPUT POWER (MPl)-^ 
POWER REQUEST (REl) 

INPUT EFFICIENCY (EF1)_, 



■~^^TPUT FLOW RATE (M2) 

I — JMJATER HEIGHT (H2) 

OWER REQUEST (RE2) 
INTERRUPT FLAG (I NT) 
MAX. OUTPUT POWER {MP2) 



The hydro storage vessel is modeled as an above ground reservoir with a large 
and constant surface area. The change in reservoir height between maximum 
and minimum levels is assumed small in comparison to the height of the water 
above the turbine. Hence, reservoir height is assumed constant. The reser- 
voir has specified evaporation and leakage rates. Average input flow gained 
by rainfal I is also specified. Energy storage is calculated based on the 
potential energy of the water in the reservoir relative to the turbine in- 
let. 


Basic Equat ion 


m = m. - M2 - NE*AS - NL + MDR-«AS/14052 


BCS 40180-2 








Paramefer/Port 

Descriot ion 

Uni ts 

W 

1 

Input water mass flow rate 

gal/h 

NE 


Evaporation coefficient (D = 0.03) 

gal/ft^-h 

AS 


Reservoir surface area 

ft^ 

NL 


Leakage coefficient (D = 8.0) 

ga I / h 

/VDR 


Rainfal 1 rate 

I nches/year 

MDM 


» 5 

Waximum allowable mass flow rite ID = 4X10 ) 

ga I /h 

m 


Maximum allowable reservoir capacity (D=5X10 ) 

gal 

M0 


Minimum allowable reservoir capacity 

gal 

H 

1 

Reservoir height above turbine 

ft 

MDE 


Reservoir deadband for priority resequence 

gal 

RE 

1 

Power request (discharge) 

kw 

CR 


Reservoir cost coefficient (D = 0.025) 

$/ga ! 

EF 

1 

Input product efficiency 

- 

AAP 

1 

Maximum input charging rate 

kw 

LE 


Reservoir life expectancy 

years 

CM 


Maintenance cost/year 

$ 

Cutouts 




Var 1 ab 1 e/Port 



M 

2 

Outlet water mass flow rate 

gal/hr 

E 


Energy stored 

kwh 

H 

2 

Reservoir height above turbine (=H1) 

ft 

A\A 


Reservoir mass (state) 

gal 

CC0 


Reservoir cost/year 

$ 

MP 

2 

Maximum discharge rate allowable 

kw 

INT 


Priority interrupt flag 

- 

RE 

2 

Maximum charging rate request 

kw 

D - Defau 

1 1 va 1 

1 ues supplied 
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Statistics 


De<=scr 

1 P.LL9.n 

Un i ts 

MDU 

Maximum 

mass f 1 ow 

rate 

ga 1 /hr 

MU 

Maximum 

reserve i r 

mass 

gal 

ML 

Minimum 

reservoir 

mass 

gal 


The calculation sequence and default values assume a pond sized for 120k w 
storage for 24 hours (5x10^ gal Ions of water 200 ft. above turbine Inlet). 

The evaporation coefficient NE assures the pond drops in height per 10 
hours. To obtain a more accurate value for this parameter requires knowledge 
of local conditions. The leakage coefficient NL Is based on the assumption 
of a loss of 0.1% of the maximum reservoir capacity in the rated storage time 
of 24 hours. The reservoir cost estimates are based on the compensation res- 
ervoir given in Reference 1. 


1. "Preliminary Feasibility Evaluation of Compressed Air Storage Power Sys- 
tems," United Technologies AER 74-00242, December 1976. 
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Calculation Sequence 

"-5 

Cl - conversion constant = 0.377 x 10 
C2 = conversion constant = 8.3398 Ib/gal 
A = Cl-»C25tHl 

1) Reservoir cost 

CC = CR^/LE 

2) Volume of water discharged 

M2 = REl/A 

3) Reservoir water volume 

m = Ml - M2 - NE^AS-NL +IMDRMS/14052. ) 

4) Energy stored 

E = A-»M 

5 ) Checks 

Ml > MDM or M2 > /V\DM 0 DIAGNOSTIC 
M>MM, O diagnostic 
M<M0 C> DIAGNOSTIC 

6) Priority interrupt 

If M^MO, INT = 1 

IF M>AM>+MDE and lt\IT=l, INT = 0 

If M^MM, INT = -1 

If AA<MM-DME and INT = -1, INT = 0 


kwh 
ft- lb 
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Calculation Sequence Cont . 

7) Maximum charging rate request 


HS 


AADl = MIN (MDM,{MM-M)/TiNC) 

RE2 = MIN (MP1,MD1M)/EF1 

Maximum discharge rate 

MP2 = A * MIN {MDM,(M-M0)/T1NO 

where TINC = integration step size in hrs 

8) Compute Statistics and Costs 
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St(3«JOOTT>.£ US 


ENTRY POINT D00%05 


STOBAGE USEO CODETU 0DD551; 0*TAtDI 000117; BLANK C0MN0N(2> DOOODO 


co>iMON Blocks 

0003 Cl‘<PL 000002 

aooit CTIKE C0D031 

OCOS CSlMUL COOOlO 

0006 COST D0DC02 


i 


I 

I 


EXTERNAL BPFERFNCES »BLOCK,NAME> 

0007 NWOut 

0010 N1025 

0011 NERRJ* 


STORAGE ASSIGNMENT IBLOCK, TTPE, RELATIVE LOCATION, NAHE) 

OOcl 00C05S lOOL 0000 OOOOOS lOlDF 0000 000030 1020r 0000 000045 1030F 0 COl 000144 20DL 

0001 corm 300L onoi 0002 is 400L oooo r 000004 a OOOG R OOOODO CCI OOOG R COOOOl C«1 

0000 R G0C0D3 Cl 0005 R 000000 DUM 0003 I 000001 ICNT 0003 I OOOOCO IHPL DQL'O CC0076 INJPs 

aocn R OuDOOl MDMl OODQ R OOCQOO MOl 0004 R QGTOOO TIME 0005 R 00CCO7 TnAX 0000 R 000002 TMAXI 


00100 

1 ♦ 

CHS 



000000 

00101 

2 * 


subroutine 

HS(M,DM,IM,M2,E,H2,CC,KP2,1NT,RE2 ,KDU, HU, ML ,M 1 , NE 

COQDDO 

CO 101 

3 * 


1 r 

AS,HL,MDR,MDH,MM,M0,H1,HDE.RE1.CR ,£FI,HP1,LE,CM1 

CODOOO 

COlOi 

4* 

C 



COOQDO 

00101 

5* 

c 

PURPOSE PERFORMANCE OF A LARGE RESERVOIR AS AH ENERGY STORAGE 

CCODOO 

00101 

6* 

c 



100000 

00101 

7» 

c 

DEVICE. 

COOPOO 

00101 

8* 

c 



COOCOC 

CClOl 

9 * 

c 

METHOD ENERGY IN STORAGE IS CALCULATED FROM THE POTENTIAL 

coaroG 

CDlOl 

10* 

c 



OOCGOO 

00101 

1 1* 

c 

between THE RESERVOIR AND THE TURBINE INLET. 

COGDOO 

CCIQI 

12 * 

c 



CC-CDDC 

COl 01 

13» 

c 

WRITTEN BY E. 

0. MAMONY version 1, MARCH 30 1977 

CGOODO 

OClOl 

14* 

c 



CDoaoc 

00101 

15* 

c 

call SECUENCE 


CCOOOO 

f-GlOl 

16* 

c 

OUTPUTS 


COCGO u 

OOlOl 

17* 

c 

« 

- RESERVOIR MASS JSTATE VARIABLE), GAl 

coaooo 

f.OlOI 

le* 

c 

OH 

- reservoir mass flowrate, gal/hr 

CaCDOQ 

EOlOl 

19* 

c 

IH 

- STATUS INDICATOR 

cocooc 

10101 

20* 

c 

K2 

- OUTLET WATER HASS FLOW RATE, GAL/HR 

ICCOCC 

COlOl 

21* 

c 

E 

- ENERGY STORED, KWH 

CCOOOO 

COlOl 

22 * 

c 

H2 

- RESERVOIR HEIGHT ABOVE TURBINE J^Hll, FT 

oocccc 

COIDl 

23* 

c 

CC 

- RESERVOIR COST/ YEAR, S 

GOuOOO 
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DOlOl 

24 ♦ 

C 

KP2 - MAXIHim discharge: rate allowable, kw 

000000 

coiai 

25* 

c 

INT - priority INIEROPT FLAG 

CCOOOC 

LOIDI 

26* 

c 

RE2 - KAXIMIJM CHARGING RATE REOUEST, KU 

cooooo 

CClOl 

27* 

c 

HDU - MAXIHUM HASS FLOW RATE, GAL/HR 

COOOOQ 

COlOl 

2at 

c 

MU - MAXIMUM RESERVOIR HASS, GAL 

cooooc 

roioi 

29* 

c 

ML - MINIMUM RESERVOIR MASS, GAL 

occooo 

COlOl 

Z3* 

c 


COCODO 

L'OIOI 

31* 

c 

inputs 

cooooc 

croioi 

32* 

c 

Ml - INPUT WATER MASS FLOW RATE, GAL/HR 

CCCOOO 

00101 

33* 

c 

NE - EVAPORATION COEFFICIENT, GAL/FT**2-HR 

OOCOOO 

COlOl 

34* 

c 

AS - RESERVOIR SURFACE AREA, FT**2 

coococ 

LClOl 

35* 

c 

NL - leakage COEFFICIENT 

ocoooo 

CO 101 

3 6* 

c 

MDR -RAINFALL RATE, INCHES/YCAR 

onoooo 

COlOl 

37* 

c 

MOM - MAXIMUM ALLOUAELF MASS FLOW RATE, GAL/Hr 

COODDC 

ODIQI 

3 t* 

c 

MM - MAXIMUM ALL0WA9LE RESERVOIR CAPACITY, GAL 

COOOOO 

COlQl 

39* 

c 

MO - MINIMUM ALLOWABLE RESERVOIR CAPACITY, CAL 

cooooo 

00101 

40* 

c 

HI - reservoir height above TURBINE, FT 

cooooo 

00101 

41* 

c 

HOE - RESERVOIR 0EAD3AND FOR PRIORITY RESEGUENCE, GAL 

OC CC 0 0 

COlOl 

42* 

c 

REl - POWER REOUEST (DISCHARGEl, KW 

cococo 

COlOl 

43* 

c 

CR - RESERVOIR COST COEFFICIENT 

COOOOO 

COlOl 

44* 

c 

EFl - INPUT PRODUCT EFFICIENCY 

OOODOO 

COlOl 

45* 

c 

MPl - MAXIMUM INPUT CHARGING RATE, KW 

COOOOC 

COlOl 

46* 

c 

LE - RESFRVOIR LIFE EXPECTANCY, YEARS 

cooooc 

00101 

4 r* 

c 

CM - MAINTENANCE COST/YEAR, S 

cocooc 

COlOl 

4B« 

c 


CCOOOC 

00103 

49* 


COMHON/CIMPL/IHPL, lCNT/CTIME/TIMt/CSIMUL/DUMl7>,THAX 

cooooo 

0010** 

5C* 


COMMON/C OS T /CCI ,C MI 

cococo 

C0105 

51* 


REAL K2,MPZ,KDU,MU,ML,M1,NE,NL,MDR,NDN,HH,K0,H0E,MP1 ,L£,XNT,K 

cooooc 

G01D6 

5 2* 


real MD1,MDh1 

cocooc 

G01Q6 

53* 

c 


OOOCOQ 

L0107 

54* 


IFIIMPL.CT.C1G0 TO 100 

000000 

GD1Q7 

55* 

c 


ocoooo 

DClll 

56* 


RFlrO.O 

000002 

00112 

ST* 


H2=H1 

C00003 

00113 

50* 


TMAX1=TMAX*0. 99999 

000005 

00111 

59* 


Cl - 3.1441E-6 

000010 

00111 

bZ* 

c 


COOOlO 

00115 

61* 


1NT=0.0 

CC0012 

l.0116 

62* 


KDUrO.O 

C00013 

DC117 

63* 


MU =0.0 

COOQ14 

CC120 

64* 


ML ri.OElO 

C00015 

D3121 

65* 


IFINE .EQ. .999991NE =0.03 

CDOOl 7 

CC123 

66* 


iriNL .EO. .999991NL =8.0 

COOC24 

C0125 

67* 


rrCMOM.EO. ,99999 >HDH=4 .OES 

000031 

00127 

6S* 


IFJMM .£0. .999991MH =5,0E6 

C00036 

0C131 

69* 


IFICR .EO. .99999JCR =0.025 

00CQ43 

00131 

72* 

c 


0D0043 

00131 

71* 

c 


C00D43 

00131 

72* 

c 

RESERVOIR COST 

D0DD4 3 

D0131 

73* 

c 


COOD43 

0C133 

74* 


CC =CR*MM/LE 

CC0050 

0C133 

75* 

c 


OOOC5D 

00133 

7b* 

c 

VOLUME OF WATER DISCHARGED 

C0CC5C 

00133 

77* 

c 


000350 

00134 

78* 


100 A=C1*H1 

C00055 

00135 

79* 


M2 =RE1/A 

C00057 

00135 

80* 

c 


000057 
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00135 

81* 

C 

RESERVOIR MASS flow HATE 

00135 

02* 

c 


00136 

83* 


IFt IM. HE. 0)0HrMl-M2-NE* AS -NL*MDR* AS/ 14052.0 

00136 

84* 

c 


D0136 

85* 

c 

ENERGY STORED 

0 0136 

86* 

c 


001^0 

8 7* 


E =A*H : 

001=10 

86* 

c 


QCiql 

89* 


HDM1-MDM/.9999 

Dom? 

93* 


irtMl.LT.MDMl.AND. 

G01‘»2 

91* 


1- m2.LT.MDMI IGO TO 200 

00142 

92* 

c 


00144 

93* 


IFI1MPL.£Q.2IWRITE<6«1010»M1,M2,MDH 

0DI52 

94* 


1F(1MPL.E0.2) 1CHT=1CMT*1 

00152 

95* 

c 


00154 

96* 


’200 IF«M .LT.MH*M0E1G0 TO 300 

00154 

9 7* 

c 


00156 

98* 


IFtIMPU.E0.2»WRITEl6.1020>M,HM 

CC16 3 

99* 


IFI lHrL.E0.2»lCNT=ICNT*l 

00163 

ibc* 

c 


GO 165 

131* 


300 IFtM .gT.MOIGO to 400 

30165 

102* 

c 


00167 

103* 


IFIIMPL.E0.2)HRITE C6, 103D»MtH0 

00174 

104* 


irtlMPL.EQ.2) ICNT=1CNT-»1 

DD174 

135* 

c 


0017*» 

106* 

c 

PRIORITY Interrupt 

0DI74 

1G7* 

c 


0C176 

138* 


400 IFIM .LE.M0)INT=1.0 

00 200 

1D9* 


IFtM .GT.tMO*MOE».ANO.- 

00 2CJ 

110* 


1 INT.EO. 1.0IINT=C.0 

DD202 

111* 


IFIM .GT,MH»INT=-! .0 

00204 

112* 


IFIM .LT. CMM-MOEI . AND. 

0 0204 

113* 


1 1NT.E0.-1.0»1N7=D.0 

00204 

114* 

c 


Q02Q4 

115* 

c 

maximum charge rate REQUEST ANO DISCHARGE RATE 

00204 

116* 

c 


00206 

117* 


M01= AMINHM0M,AMAX1IC.',IMM-M )/DUM(7)I> 

00207 

llfi* 


RE2-AHIN1 IMPl .MDl*A)/EFi 

0 0213 

119* 


MP2=AM1Ni IMDH.AMAXl to. , IM-MOI /0UMI7ni*A 

00210 

120* 

c 


00211 

121* 


IFIlMPLiLE. 1 »RETURN 

00211 

122* 

c 


0G211 

123* 

c 

STATISTICS 

00211 

124* 

c 


00213 

125* 


MCU=rAMAXl IDM.MOU) 

00214 

126* 


MU =AMAX1IM fHU 1 

00215 

127* 


ML =AKIN1IM ,ML 1 

C0215 

128* 

c 


00216 

129* 


IFITIME .LT.TMAXl IRETURN 

00216 

13D* 

c 


00223 

13l* 


CCI=CC1*CC 

C0221 

132* 


CMI=CM1«CM 

C0221 

13 3* 

c 


00222 

134* 


RETURN 

00222 

135* 

c 


00223 

136* 

1010 FORMAT* 1HD,23HHS INtET HASS FLOW RATE,F12.3, 5H OR « 

0022 3 

13 7* 


1 21H0ULET MASS FLOW RATE.F12.3, 






D000S7 
000057 
DOQC62 
CCOD62 
000062 
CCCC62 
CC0077 
000077 
CC01C2 
C00105 
CD0105 
CG0105 
000122 
C00135 
000135 
DDDl«»*i 
0Q01«>1 
000150 
Q0C162 
000162 
C00I71 
000171 
D0D17H 
CD02D6 
000206 
000206 
DOC-206 
00021 5 
D0C222 
000222 
0002H 1 
D0Q2<« 7 
C002M7 
00Q2M7 
C0D247 
COG2*4 7 
D0D266 
000302 
000311 
CC0311 
000326 
000326 
000326 
000326 
D0033S 
D003«»3 
000351 
000351 
000357 
000357 
000366 
C0D371 
G00371 
COC37«J 
GC037tl 
G0C550 
000550 


O ^ 

^ S 
^ 2 
s > 

f.l 
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00223 I38« 2 26H IS GREATER THAN KAXIHUH»F12 .3> 

00224 139* 1020 FORHATt IHO, 19HHS RESERVOIR V3 LOME , F 1 2 . 3 , 

DG224 14D* 1 30H EXCEEDED MAXIMUM ALLOW ABLE , FI 2 . 3 » 

00225 141* 1030 FORMAT* IHO, I9HHS RESERVOIR VOLUME , F 1 2 . 3 , 

C022S 142* 1 24M OROPEO BELOU MINIMUM , F 12 .3 1 

00225 ns* C 

C0226 144* END 


000550 
CO 05 50 
000550 
000550 
000550 
C0055Q 
C0Q550 


e 


f 




HT 


7.15 HYDRAULIC TURBINE 


ROTOR SPEED (RS) 

MASS FLOW RATE (M) 
WATER HEIGHT (H) 

MAX. INPUT POWER (MPl 



POWER (P2) 

MAX. OUTPUT POWER 
OUTPUT EFFICIENCY 


(MP2) 

(EF2) 


The hydraulic turbine model is based on e constant speed design and is typi- 
cal of a reaction/Francis type turbine. The turbine is assumed to be designed 
to a specified operating point and output power. 

For off design performance the pump efficiency is assumed to be functionally 
related to the first power of the mass flow rate. The equations are assumed 
to be valid over a specified range of values for the turbine parameter- 


Basic Equations 

P = EFFm^l^2^ H 
EFF = l-(l-EFD)-MftD/M 
where Cl, C2 are conversion constants. 
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1 nouts 

Parameter/Port 

Descri&ti.Qn 

Units 

M 

Inlet mass flow rate 

ga 1 /h 

H 

Height of reservoir above turbine inlet 

ft 

EFD 

Design pt. turbine efficiency (D = 0.90) 

- 

MD 

5 

Design pt. mass flow rate (D = 2X10 ) 

ga 1 /h 

m 

Maximum mass flow rate (D = 3X10 ) 

ga 1 / h 

EF 1 

Input product efficiency 

- 

MP 1 

input maximum discharge rate 

kw 

CK 

Turbine capacity cost coef f ici ent^(D = 0.011) 

- 

F0 

Turbine exponent for cost calculations (D = 0.5) 

- 

RS 

Angu 1 ar vel oci ty 

rpm 

X 

Outputs 

Var i ab 1 e/Port 

Turbine head exponent for cost calculations 

(D = 0.25) 


CC0 

Turbine cost/year 

$ 

EFF 

Turbine efficiency 

- 

P 2 

Output power 

kw 

EF 2 

Output product efficiency 

- 

MP 2 

Output maximum discharge rate 

kw 

CP 

Turbine characteristic parameter 

- 

Statistics 

CPU 

Maximum CP 

- 

CPL 

Minimum CP 

- 

PU 

Maximum output power 

kw 


D - Defau It va I ues 

^CK = Capital cost (known un 1 1 ) / ( (At)*481. 2)')H(F0*HW*X*! i fe expectancy) 
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The calculation sequence and default values assume a constant speed reac- 
tion type hydraulic turbine nominally rated for 120kw and located 200 ft. 
below the reservoir. The equations relating the various physical parameters 
are assumed to be valid for the indicated range of the characteristic tur- 
bine parameter, CP. The equations and cost estimates are based on the data 
given in Reference 1 , and the cost estimates on data from Reference 2. 


Calculation Sequence 

Cl = 0.377x10“® 77^ 
f t-l b 

C2 = 8.3398 Ib/gal 
A = Cl^K:2^fH 

1) Costs 

CC0 = CK* {/W)*481.2)^«fF0W«(X 

2) Efficiency 

If M < 0 set EFF = 1 and go to 3) 
EFF = 1-(1-EFD)-WD/M 
EFF = MAX (EFF, 0.6) 


1. L. Marks and T. Baumeister, "Mechanical Engineers Handbook", McGraw Hill, 
N.Y., 1958, Section 9, p. 207. 

2. Carson and Fogleman, "Comparison of Methods for Converting Existing Power 
F’lants to Pumped Storage Facilities", international Engineering Company, 
Inc., 1974. 
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Calculation Sequence Cont . 

3) Output Power 

P2 = EFFM->(M 

4) Product Efficiency 

EF2 = EF1-«€FF 

EFM = m -(1-EFD)-«WD 

5) Maximum Discharge Rate 

MP2 = Min { MPl^fEFD, EFM*A} 

6) Turbine Character ist ic Parameter 
{ I f P2 < 0 go to 7) 

CP = RS-KSQRT (P2^.746)-/hH«fl.25 

If CP >100 write DIAGNOSTIC 
If M> /WM write DIAGNOSTIC 

7) Compute Statistics and Costs 
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SUBROUTINE HT ENTRY POINT 000305 


STORfcGE USED COOEfll 000R30; DAT(M01 0000‘^Sj BLANK C0MH0N(2? 000000 

COMMON blocks 

0003 CIMPL 000002 
ODOR CTTME CDOCOl 
0C05 CSIHUL COOOIQ 
OC06 COST 000001 


EXTERNAL REfCRENCCS fBlOCK, NAME! 

OOOT XPPR 

0010 SORT 

0011 Nh'OUt 

0012 iao2s 

3013 NERR5* 


STORAGE ASSIGNMENT (BLOCK* TYPE* RELATIVE LOCATION* NAHEI 

0001 000073 lOOL 0000 000003 lOlDF DOOO 000016 1020F 0001 000205 2Q0L OCCl 000231 3CDL 

3001 C0C113 AOOL 0006 R 000000 CCl 0000 R 000001 Cl 0005 OOODOO DUM 0000 R CODO02 EF« 

0003 I OOQOOl ICNT 0003 I 000000 IMPL 0000 000057 INJPS OOOV R DOCOOG TIME 0005 R 000007 TMAX 

0000 R COCOOD TMAXI 


00100 

1* 

CMT 


OOOOOQ 

00101 

2* 


SUBROUTINE HT»CC,EFF,P,EF2,MP2,CP,CPU,CPL,PU,H,H,EF0,MD„HM 

OOCDOO 

COiOl 

3* 


1 ,EF1,MP1,CK,F0*RS,X» 

OOGQOO 

00101 


C 


QODOCC 

00101 

S* 

C 

PURPOSE performance OF A HYDRAULIC TURBINE 

000000 

COiCl 

t* 

C 


OOCDOO 

COlOl 

7* 

C 

METHOD OrF DESIGN PERFORMANCE IS ASSUMED PROPORTIONAL TO 

COGCQC 

COlOl 

8* 

C 


GOCODO 

ODIOI 

9* 

c 

MASS FLOW RATE 

CODDDO 

CDIQI 

10* 

c 


000300 

COlOl 

u* 

c 

WRITTEN by F. 0. MAHONY VERSION 1* MARCH 30 1977 

OOOCDQ 

GDI 01 

12>* 

c 


DOOGCC 

OOICI 

13* 

c 

CALL 5E0UENCE 

CDGCOO 

CCIOl 

1<1* 

c 

OUTPUTS 

CO 0000 

liOlOl 

15* 

c 

CC - TURBINE COST/YEAR* $ 

GOCDCQ 

20101 

16* 

c 

EFF - TURBINE EFFICIENCY 

COCCDQ 

ociai 

17* 

c 

P > OUTPUT POWER, KW 

DQOCOO 

rciGi 

18* 

c 

CF2 - OUTPUT PRODUCT EFFICIENCY 

□oGoao 

COiOl 

19* 

c 

HP2 - OUTPUT MAXIMUM OIScHARCE RATE, KW 

cccooo 

00101 

20* 

c 

CP -TURBINE characteristic parameter 

CDUDDO 

00101 

21* 

c 

CPU - MAXIMUM CP 

COCCOO 
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eoioi 

22* 

C 


CPL - MIMIMUH CP 



OOOGOD 

OOlQl 

23* 

c 


PU - MAXIMUM OUTPUT POWER, 

KW 


uODOOO 

COiOl 

24* 

c 





COOCOQ 

roiaj 

254 

c 


INPUTS 



DO U 00 0 

COlOl 

26* 

c 


M “ INLET MASS FLOW RATE, 

GAL /HR 

03CCOC 

LDiai 

27* .. 

c 


H ~ height of reservotr apove 

turbin-e inlet, ft 

OOUODD 

COiOI 

28* 

c 


EFD - design point TURBINE EFFICIENCT 

000000 

CDXOl 

29* 

c 


MD - DESIGN POINT MASS FLOW 

RATE, GAL/HR 

UOOOOQ 

CDIOX 

30* 

c 


MM - MAXIMUM MASS FLOW RATE 

, GAL/HR 

ODODDO 

CClOi 

31* 

c 


EFl - INPUT PRODUCT EFFICIENCY 


000000 

CClOl 

32* 

c 


MPl - INPUT maximum DISCHARGE RATE 

DODCDO 

cciai 

33* 

c 


CK - TURBINE CAPACITY COST 

COEFFICIENT 

GOQGCO 

POIDI 

34* 

c 


ro - TURBINE EXPONENT FOR COST 

CALCULATIONS 

COQCOC 

tiClDl 

35* 

c 


RS - ANGULAR VELOCITY, RPM 



DO 000 0 

GCIQI 

36* 

c 


X - TURBINE head EXPONENT 

FOR 

COST CALCULATIONS 

COCDDQ 

COlOl 

37* 

c 





COG&OQ 

C0103 

38* 



common/cimpl/ikpl.icni/ctime/tihe /CSIMUL/0UMI7I ,tmax /cost/ CCI 

OODOOQ 

00104 

39* 



REAE HP2,M,MD,MM,MPl 



DQOODQ 

ceiOH 

40* 

c 





DOQDOO 

00105 

41 * 



IFC1MPL.GT.GIG0 TO 100 



COOCOO 

LC105 

42* 

c 





GOLCDO 

0C107 

43* 



TMAX1=TMaX* 0.99999 



O0CO02 

00110 

44 * 



PS =3600.0 



C000C5 

CcUO 

45* 

c 





C00005 

oom 

4 6* 



IFCEFD.EO. .999991EFD=0.9 



0QCC07 

COM3 

47* 



IFCMO .EO. .999991M0 =2.0E5 



C0CC14 

30115 

48* 



iriMM .00. .99999JHH =3.QE5 



C0Cd2 1 

00117 

49* 



IFCCK .EO. .99999JCK =0,011 



0CCD26 

CO 121 

5C* 



IFCFO .EO. .999991F0 =0.5 



C0C033 

C0123 

51* 



IFCX .EO. .999991X =0.25 



C0CC4C 

00123 

52* 

c 





C0LC4Q 

C0125 

S3* 



CPL=1.0E10 



00004 5 

0G126 

54* 



CPU -0.0 



C00C47 

C0127 

55* 



PU =0.0 



C00050 

D0127 

5 fc* 

c 





0DCC-5Q 

CD130 

5"'* 



Cl = 3.1441E-6 



OOOC51 

00131 

58* 



CC =CK*IMD*481.2»**F0*H**X 



000053 

CO 131 

5 9* 

c 





E0C053 

00131 

60* 

c 


EFFICIENCY 



0DCD53 

CD132 

61* 


xco 

EFF =1.0 



D00D73 

00132 

62» 

c 





DCG073 

D0133 

63* 



IFCM.LE.O.OIGO TO 400 



000074 

00133 

64* 

c 





000074 

00135 

65* 



EFF=1.C-C1.0-EFOI*MD/M 



00007T 

00156 

66* 



IF(EFr.LT.0.6> EFF=0.6 



GG0104 

00136 

67* 

c 





000104 

20136 

68* 

c 


OUTPUT POWER 



0Q01D4 

0G136 

69* 

c 





D0C1C4 

CO 14 0 

70* 


4 00 

P =EFF*H*H*Cl 



000113 

00140 

71* 

c 





CD0113 

r 0140 

72* 

c 


PRODUCT EFFICIENCY 



200113 

iocma 

7 2* 

c 





CCDll 3 

coim 

74* 



EF2=EF1*EFF 



QCGU7 

:ci4i 

75* 

c 





C0CU7 

CDI41 

76* 

c 


MAXIMUM DISCHARGE RATE 


uDCll 7 

00141 

71* 

c 





C0CU7 

00142 

78* 



EFH =MM*.9999-U ,D-EFD)*MD 
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o 

CO 


CC1«I2 

79* 

C 


000122 

C01«»I 

BC« 


HP2=AHrNHHPl*EF0tFFH*H*Cll 

CCC131 

cams 

81* 

C 


000131 

oomi 

82* 

C 

TURBINE CHARACTERISTIC PARAHETER 

000131 

OCl*>3 

83* 

c 


000131 


89* 


IMP .Lt. Q.Of GO TO 300 

000192 

CD146 

85* 


CP rRS*SORT IP*0.79b>/H**l .25 

00UI99 

CCi^ld 

86* 

c 


C0019<i 

comT 

87* 


IF1CP.lt. 100. ClGO TO 200 

0D0!b2 

601t7 

88* 

c 


C001b2 

GO 151 

69* 


IFll HPL.f 0.21 WRITE Ifc.lOlO CP 

COOlbS 

G0155 

VC* 


IFCIHPL.E0.21 ICNlrlCNT*! 

000176 

00155 

91* 

c 


C0C176 

£0157 

92* 


2C0 IMH.LI.MHIGO TO 300 

00020S 

Cl Cl 57 

93* 

c 


C0Q2O5 

vOlbl 

99* 


IFIIHPL.E0.2)WRITE(6,1020}H«HN 

D00210 

qou>6 

95* 


1FUHPL.E0.21 ICNT = ICNT«l 

00G222 

C 0 1 b 6 

9fc* 

c 


D00222 

00170 

97* 


300 IMIHPL.LE.IIRETURN 

000231 

CD 170 

98* 

c 


DD0231 

DC170 

99* 

c 

STATISTICS 

CO 02 31 

0C173 

ISO* 

c 


DD0231 

G0172 

101* 


CPU=APAX1ICPU«CP1 

000237 

C0173 

102* 


CPL=AKIN1«CPL,CPI 

C00295 

C0J74 

103* 


PU ZAHAXIIPU ,P i 

000253 

00 17^ 

109* 

c 


CD0253 

C0175 

IDS* 


IFCTIHE.LT.THAXllRETURN 

000261 

CO 175 

106* 

c 


Q0C2bl 

C0175 

107* 

c 

COST 

000261 

CC175 

108* 

c 


C00261 

C0177 

109* 


CClrcCI*CC 

000270 

CQ177 

110* 

c 


GQQ27Q 

00 2DQ 

111* 


RETURN 

C0C273 

DC203 

112* 

c 


C30273 

00201 

113* 

1010 F0RMAmH0,48HHl TURBINE CHARACTERISTIC PARANETER OUT OF RANGE 

0C0M27 

0D201 

U*l* 


1 F12.3I 

C00927 

00202 

ll.S* 

1020 F0RMAH1H0,23HHT INLET HASS FLOW RATE.F12.3 

CQG927 

CD202 

lib* 


1 ,37H GREATER THAN MAXIMUM DESIGN VALUE, F12. 31 

000927 

00202 

117* 

C 


000927 

00203 

lie* 


END 

000927 


I-* 

CO 


7.16 ADIABATIC HEAT EXCHANGER 


HX 


STORED ENERGY (EC1,EC2) 


DISCHARGE MASS FLOW (M3)_ 
DISCHARGE INLET TEMP (T3}_J 

AIR MASS FLOW (Ml) „ 
INLET TEMP (Tl) — 
AMBIENT TEMP (TA) — 
MAX. INPUT POWER (MPl) ^ 
INPUT EFFICIENCY (EFl) — 



DISCHARGE EFFICIENCY (EF0) 

DISCHARGE EXIT TEMP (T0) 

AIR MASS FLOW (M2) 

EXIT TEMP (T2) 

MAX. OUTPUT POWER (MP2) 
OUTPUT EFFICIENCY (EF2) 


The purpose of the adiabatic heat exchanger is to recover a portion of the 
heat of compression from the high pressure, high temperature air exiting from 
the compressor. Figure 7-16-1 shows an adiabatic heat exchanger used in an 
underground, constant pressure compressed air energy storage system. The adia- 
batic heat exchanger operates in a manner similar to the high temperature 
thermal energy storage systems currently conceived for solar thermal power 
plants^. In the storage charging mode, high pressure, high temperature air 
enters the top of the heat exchanger and deposits a portion of its thermal 
energy in the storage media as either sensible heat or latent heat of fusion. 
The exiting high pressure air is stored in an appropriate vessel, e.g., under- 
ground cavern. In the discharge cycle (Hl'i, high pressure, low temperature 
air enters the bottom of the heat exchanger, recovers thermal energy from 
the storage media and exits to the turbine* 

The adiabatic heat exchanger model is based on a two cell storage model. Given 
the stored energy In both cells, a linear temperature profile is computed 

i BEC/EPR! RP 788— 1, "Advanced Thermal Energy Storage Systems," Movember 
1976. 
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HX 




PRESSURE- 

COMPENSATION 

POND 



I PACKED BED 
S5M THERMAL ENERGY 
’ I STORE (TES) 


tjk V 


FIGURE 7,16-1 KOUTZ-GLENDENNING ADIABATIC COMPRESSED AIR STORAGE 
SCHEME (SINGLE-STAGE HEAT-OF-COMPRESSION STORAGE) 


BCS 40X80-2 


189 



for the media mass. Based on a given inlet mass flow rate, the convective 
fi Im coefficient, unit thermal conductance, and heat exchanger exit tempera- 
ture are calculated. 

The rate of energy deposited (or withdrawn) is calculated and integrated 
to yield the stored energy state. For a phase change media, the temperature 
profile is approximated In the following way: Average cell temperatures TSl 
and TS2 are determined from the enthalpy diagram (Figure 7.16-2) using av- 
erage cell entropy ECl/MA and EC2/AAA, respectively. Then a linear tempera- 
ture profile is constructed as shown in Figure 7.16-3. 

Basic Equations 

ECl = PX - PY - NU Tc ECl - BE (ECl - EC2) 

EC2 = (P2 - PX) - (P0 - PY) - NU-?^EC2 + BE (ECl - EC2) 

where 

ECl, EC2 = storage power in cells 1 and 2, respectively 

PX = charging power in cell 1 

PY = discharging power in cell 1 

P2 - PX = charging power in cell 2 

P0 - PY = discharging power in cell 2 

NU = storage media leakage constant 

BE = storage media mixing constant 
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FIGURE 7.16-2: ENTHALPY-TEMPERATURE DIAGRAM FOR HX 


MEDIA 

TEMPERATURE 



FIGURE 7.16-3: STORAGE TEMPERATURE VERSUS TIB E LENGTH 
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Parameter/Port 

Disscription 

Units 

NU 


Storage energy loss coefficient (D = 0.002) 

(h)"^ 

ST 


Rated storage time^ 

h 

BE 


Storage energy mixing coefficient (D = 0.0) 

h"l 

T01 


Minimum allowable storage temperature (D = 60) 


DTD 


Media temperature swing^ (D = 400) 


PD 


Rated storage thermal power 

kw 

TEM 


Maximum allowable exit temperature (D == 240) 

°F 

XD 


Design point fraction of molten media mass 

- 

EF 

1 

Input product efficiency 

— 

MP 

1 

Maximum input charging rate 

kw 

CPI 


-4 

Storage media heat capacity (D = 2.93X10 ) 

kwh/ 1 b°F 

H 


Storage media heat of fusion^ (D = 0.0219) 

kwh/ 1 b 

TMT 


2 

storage media melt temperature (D = 147) 


CPF 


-5 

Air heat capacity (D = 7.6X10 ) 

kwh/ 1 b°F 

KF 


Air thermal conductivity (D = 1.03X10 ^) 

kw/ f t °F 

MU 


Air viscosity (D = 0.055) 

Ib/ft-h 

NT 


Number of tubes (D = 200) 

- 

D 


Tube diameter {D = 0.03) 

ft 

L 


Tube 1 ength ID = 4) 

ft 

DEL 


Tube half spacing (D = 0.085) 

ft 

K 


Storage media thermal conductivity (D = 0.0078) 

kw/ft-°F 

T 

1 

Inlet air temperature 

°F 

M 

1 

Inlet mass flow rate 

1 b/h 

CM 


Storage device yearly maintenance cost (D = 0.6) 

$/kw 

CSA 


Storage device capacity cost (D = 50) 

$/kw 

CSB 


Storage device energy cost (D - 15.6) 

$/kwh 

LE 


Unit life expectancy 

years 


D - Defaul t val ues spec! f ied 

1 - Design point conditions 

2 - Used for phase change media, H = 0 for sensible heat 
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HX 




M 

A 

1 

TA 

3 

In 

r® 




Vor i able 

/Port 

r.Oi 


fCC 

i\\ 

■A 

AM' 

\ 

UvlMkC 


1 


\v\ 


vCiA 


HI 


11 


P 

•'i 



PA\ 

tf 

. -•> 

RT 


PrS 


n 


EF0 


StoHsHcs 


TSU 

TSi 

m- 

A\T 


iVesce.lD..iJ,on 

Dtscharyo cyclo matvs Mow rajo ttc?n\ ivtorayo 
Dlachari^o cyclo i'cmporatui o ttMn«torav]o 
Ambient' tempcfnturo 
Storage vesisol minimum temporafut o 


nrji;cLi{^t.ton 

SIoi'CaI energy {«tat-e5 ivM cell 1 U\et nule) 

Stored energy ielatol for v'ell (ooKI nldei 

Outlet masn rlv->vv rate (-AVU 

Ataximum dlectunrgo rale 

Average tempcratui’es tor colitt i and 0 

AM- exit temperviture 

Reviufred storage media mass 

Storage device capi tal cost, year 

Convective treat transter coettlclent 

Unit tlrermal conductance 

Charge rate into heat exchanget 

Energy stored at start and end of melt 

AVaxlmum ollovvable charge rate 

Ou t pu t p rod u c t e f f let ency 

Thermal resistance 

Discharge power taken trom heat exchanger* 
Discharge cycle output temperature 
Discharge cycle efficiency 


Ataxlmum storage temperature 
AMnimum storage temperature 
Ataxlmum stored energy 
Ataxlmuni exit temperature 


ib/hr 

‘‘''l 


.ivtl du ' I ji .V . 

Kwh 
Kwtr 
lb/ hr 
kw 

lb 

s 

kwh/ 1 t'>*'''F 

kvvh/f t”^^l 

kw 

kwh 

kw 


0. 


F/kw 


kw 

0,. 


% 

Op 

kwlr 




The default values assume use of paraffin wax as the phase change storage 
medium, (In reality, paraffin wax may not be applicable to temperatures as 
high as 60Q°F, The selection of a phase change medium involves careful con- 
sideration of a number of factors [see Reference l] ) . The heat exchanger t 

geometric parameters, i.e., tube number, diameter, etc., and heat exchanger j 

cost estimates are based on the baseline phase change storage device devei- | 

oped in Reference 1, but scaled down to reflect expected mass flow rates j 

f 

and required media mass. Although these data were developed for a different f 

application (i50 AWe, 6 hour storage, average temperature = 786°C), they can I 

I 

be considered representat i ve until detail design data is available. | 

i. 

i 

i 

f 

I 


1. "Advanced Thermal Energy Storage," BEG/EPRl RP 788-1, July 1976. 
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1) Initial Galc-utatlong 


AVV a 


K&’^Ml+CPlt^m'D 


CC0 « {CSA-tCSBi^ST)tiPD/LE 
El « AVV^mtHTMT-mi 
12 - AV\’^f[H*fUPl'>f[TMT-T 01)3 
T3 « TSCi-TA 
A e: (DJiOEL'K^IlJrJrsi/S. 

RBUI B/2, RBU+l) - SQRTIRBI U^Bs«;3t‘A) 
RN m G SQR T { f RB n +1 ) ->H<HRB ( 1 ) ‘ 2 ) 




m 


. D 4 
- 


(mm± 

\ RNm 


2) Stora^o T»^niRi>raturc> (aea rlguri;? ?,l6-2) 

r 


TS 


TOl + 


TMT 


T?31 ^' 


MA-J 5 CPX 


kML 




CPI 


1 f E A t, 


If E^ < EgE-^ 


U E > E, 


whoro TS - TSl and E ™ ECl for storago call 1 and almlfarty for oolt 2, 

l-K Exit TonpofvVturo Calculations 
A\2 m. 

P2,« O'- 

PX D , ■ 


RCS 
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3) Cont. 


T2 = TS2 - (TSl-TS2)/2 
AT = TS1-TS2 
1 f m = 0, GO TO 7 ) 


4) Convective Heat Transfer Coefficient^ 


HF = liE 
D 


0.0215 ^ 


NT MU^{-PI^ 


^O.f 


•j'f 


cPF-smj 

KF 


0.6 


5) Thermal Conductance 


U = — ^ + RT f 

HF J 


-1 


UA = U-5H=l-W-5^U(NT/(CPFifMl*2) 


6) Exit Temperature and Charge Rate (See Equation A2. in Appendix) 

TX = T1 - AT -II. - EXPI-UA) )-«-(Tl - TSl - AT/2 - AT/UA) 

T2 = TX - At - (l.-EXP(-UA) )-)HTX - (TS1+TS2) /2-AT/UA ) 

P2 = Ml^fCPF*{Tl-T2) 

PX = m^PF-^'HTi-TX) 

7) HY Exit Temperature Calculations 

T0 ^ TSl + AT/2 
P0 = 0. 

PY = 0. 

If M3 = 0 GO TO 11) 

1 

Kays, W. M., Convective Heat and Mass Transfer . McGraw Hill, N.Y. 
p. 173. 



1966, 
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81 ConvecHve Heat Transfer Coefficient 




.0215* 


42 If — i — 

NT «U*PH<0 





9) Thermal Conductance 

UA = U0^H^H<O*L‘«tJT/(CPFt{M3*2) 

101 Exit Tetnperature and Discharge Rate (See Equation A3, In Appendixl 
TY = T3 + At - (l.-EXP(-UAl HHT3 - TS2 + AT/2 + AT/UAl 
T0 = TY + At - (T,-EXP(-UA1 1*(TY ~ (TSl + TS21/2 + At/UA} 

P0 - M3^fCPF*(T0^T3 1 
PY - At3^K:PF*tTeF'TYl 

111 Energy Deposited 

ECl = PX " NU * ECl - PY - BE * (ECl - EC21 

EC2 « (P2-PX1 - NU * EC2 - (P0 - PYl + BE* (ECl -- EC2) 

If T2 > TEM, WRITE DIAGNOSTIC 

121 Maximum Allowable Mass Flow Rate 
MDM - PD/ (CPFWD1 

131 Maximum Allowable Charge Rate 
PM = MOM * CPF * (Tl-TAl 
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Charging and Discharging Efficiency 


HX 

EFF - 1 

If T2 > TS0 EFF ^ 

EF0 ^ 1 

1 f T5 > TS0 EF0 ^ 

MPa = MIN (MPl^ PM) * EFF 
EF2 = EFl^^FF 

Compufe SfatisHcs and Cost Summafion 
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Append f X : Temperature Equations for a Media with Constant Gradient 

Assumpt i ons 

1) Constant Gradient Media Temperature; 


MEDIA 



TUBE LENGTH 


2) Working Fluid Differential Equation: 


Al. 


9Tf ^ UA 

ax L 


(TS - Tf) 


0 < X < L 


Atoin Resu I ts ; Exit temperature in the charging and discharging cycles are 
given by 


A2. Tf ID = Tf (0) + ATS - (1-exp (-UAU^lTf iO-TSO + ) 

V UA 

A3. TflO) = TfIL) - ATS - ll-exp (-UA) )*^Tf I L )-TSL - All) 


where ATS = TSL - TS0. 


Proof ; Multiplying Al, by explUA*X/L) and recombining terms yields: 
A4. (exp(UA*X/L)*Tf ) = ^ *explUA*X/L )*TSIX) . 

Integrating A4. and subsi tuting TSIX) = TS0 + * X yields 

BCS 40180-2 


1 ^ 


HX 

A5. Tf(X) = expt-'UA-«-X/LHfTf(0) + ^ J 6Xp(-UA(x-y)/L)-}?-T$(y )dy 

i) 

- exp(-UAWL)Tf (0) + (1-exp (-UA-^-X/U )*(TS 0 - ATS/UA) 

•f ^ # X 

Recombining terms in A5. and letting X=L yields A2. Equation A3^ follows 
from A2. by symmetry, i.e., substitute In A2; 

Tf(0) for Tf(L) 

Tf(U for Tf(0) 

TSL for TS0 
TS0 for TSL. 
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SUBROUTINE HX 


ENTRY POINT 001D&5 


TORAGE 

USED ( 

CODE (I I 

COMMON 

BLOCKS 


0003 

CIHPL 

000002 

000'* 

ctime 

DDODOl 

ODCS 

CSIMUL 

000010 

0006 

COST 

000002 


EXTERNAL REFERENCES (BLOCK* NAME! 


0007 

SORT 

DDIO 

ALOG 

0011 

XPRR 

0012 

EXP 

0013 

NWPUS 

00 1«* 

N1021 

0015 

NLRR3S 


storage ASSIGNMENT (BLOCK* TYPE* RELATIVE LOCATION, NAMEJ 


0001 


DC0301 

IDOL 

0000 


00003R 

loior 

0001 


0005 1** 

20QL 

0001 


000236 

205G 

0001 


00026*1 

21AG 

0001 


000637 

300L 

0001 


00071 A 

50CL 

0000 

R 

000016 

A 

0006 

R 

030000 

CCl 

0006 

R 

000001 

CHI 

0000 

R 

0G0C20 

CELT 

0005 


CDOOOO 

OUM 

0000 

R 

000033 

EFF 

DDQD 

R 

000030 

HFO 

OOCP 

T 

00001 7 

I 

0003 

I 

CO 0001 

ICNT 

0003 

I 

CODOOO 

IMPL 

0 000 


OOCI07 

IN JP* 

0000 

R 

000000 

MOM 

0000 

R 

COPOl** 

PI 

0000 

R 

000023 

PX 

0000 

R 

000027 

PY 

0000 

R 

000001 

RB 

0000 

R 

000007 

RN 

OCOO 

R 

C0C025 

TEMP 

oac<* 

R 

000000 

TIME 

0005 

R 

000037 

TMAX 

0000 

R 

C0D015 

TH AXl 

OCOO 

R 

000022 

TSC 

ODCD 

R 

C00C21 

TSH 

GOOD 

R 

000026 

TX 

OCOO 

R 

000032 

TY 

OCOO 

R 

00002*1 

UA 

OCOO 

R 

000031 

uo 






00100 

1* 

CHX 



CDOOOO 

COlOl 

2* 


subroutine HX(EC1 *DE1 *1E1 *EC2 ,DE2*IE2*M2*MP2*TS1*TS2, T2,MA * 

OOCOGu 

ODIOI 

3* 


1CC,HF,U, 

P*E1,E2,PM,EF2*P0*T0,EF0,R,TSU*TSL*ME,MT,NU,ST,BE,T01 *DTO 

OOOGOO 

COlOl 

: 1* 


2 

*P0,7EM* XP,EF1,MP1,CP1 ,H*TMT*CPF,KF,MU* NT*D,L,DEL,K*T1 

COaODQ 

CDlOl 

5* 


3 

*M1,CM*CSA ,CSE,LE,H3,T3,TA *TSO) 

CDCOCO 

CDlOl 

6* 

C 



OOGDOO 

DOlOl 

V* 

C 

PURPOSE 

PERFORMANCE OF ADIABATIC HEAT EXCHANGER DURING CHARGE 

OCODOG 

DO 101 

8* 

C 



COCOOD 

CClOl 

9* 

c 


cycle 

OOCCDD 

LOlOl 

1C* 

c 



CO CDC C 

C'OIOI 

11* 

c 

METHOD 

heat storage media ASSUHEO To contain no TEMPERATURE 

ODD COO 

COlOl 

12* 

C 



DOCCOO 

COlDi 

1 1* 

c 


GRADIENTS. ENERGY DEPOSITED IS A FUNCTION OF TEMPERATURE 

GQOOOC 

00101 

16* 

c 



OOGDOO 

00101 

15* 

c 


AND THERMAL CONDUCTANCE 

CDDOOG 

CDlOl 

16* 

c 



GOOOOC 
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00101 

17# 

C 

URITTCN BF F. 0. 

HAHONt VERSION 2, JUNE 1977 

QOODOO 

00101 

18* 

C 



COOCDQ 

coioi 

19* 

c 

CALL 5E0UCNCE 


COOGDC 

COlOl 

20* 

c 

OUTPUTS 


COQODC 

00101 

21* 

c 

ECl - 

STORED ENERGY t STATE 1 FOR STORAGE CELL 1, 

CODOOO 

COlOl 

22* 

c 

DEI - 

ENERGY RATE FOR ECl, KW 

GOLOOC 

COlQl 

2 3* 

c 

1£1 - 

STATUS INDICATOR FOR Ecl 

0C0D3D 

OClOl 

29 * 

c 

EC2 - 

STORED energy STATE FOR STORAGE CELL 2t KWH 

DOGOOQ 

COlOl 

2S* 

c 

DE2 - 

ENERGY RATE FOR EC2, KW 

COuCOC 

OOICI 

26* 

c 

TE2 - 

STATUS INDICATOR FOR EC2 

GOuOQO 

“0101 

27* 

c 

1*2 - 

OUTLET HASS FLOW RATE, L5/HR 

EOCCOC 

lOlOI 

28* 

c 

HP 2 - 

HAXIHUH DISCHARGF RATE ALLOWABLE, KW 

OOOCDO 

COlOl 

29* 

c 

TS 1 - 

STORAGE TEMPERATURE IN CELL 1, DEG F 

GCDDOO 

COlOl 

3C* 

c 

TS2 - 

STORAGE TEMPERATURE IN CELL 2, DEG F 

CDCGOC 

00101 

31* 

c 

T2 - 

AIR EXIT TEHPERATURE, DUG F 

OCCOQO 

tuioi 

32* 

c 

KA - 

REQUIRED STORAGE K.EOIA HASS LE 

oocooo 

OClOl 

33* 

c 

cc - 

STORAGE DEVICE CAPITAL COST/YEAR, S 

00 GOOD 

LClOl 

3*** 

c 

HF - 

convective HEAT TRANSFER COEFFICIENT, KWH/FT2-F 

OCOOOD 

COlOl 

3S* 

c 

U 

UNIT THERMAL CONDUCTANCE, KWH/FT2-F 

DCLOOO 

COlOl 

36* 

c 

P 

CHARGE rate OF HEAT EXCHAnCER 

000000 

OOlOl 

37* 

c 

El - 

ENERGY STORED AT START OF HE L 1 PHASE, KWH 

OOOQCO 

ODIOI 

38* 

c 

E2 - 

ENERGY STORfD AT END OF MELT PHASE, KWH 

COUCOO 

COlOl 

39* 

c 

PM - 

MAXTHUM allowable CHARGE RATE, KU 

OOCOOO 

DCIDI 

90* 

c 

CF2 - 

OUTPUT PRODUCT EFFICIENCY 

CCGDCO 

COlOl 

*il* 

c 

PO - 

DISCHARGE POWER TAKEN FROM HEAT EXCHANGER, KU 

ODDDOO 

COlOl 

9 2* 

c 

TO - 

discharge cycle OUTPUT TEMPERATURE* DEG F 

DODDCQ 

COlOl 

9 3* 

c 

EFO - 

discharge cycle efficiency 

DO CCD □ 

DOlOl 

99* 

c 

R 

thermal resistance, deg f/kw 

OOCOOO 

CClOl 

95* 

c 



OOODOC 

00101 

96* 

c 

STATISTICS 


COOOOC 

00131 

97* 

c 

TSU - 

MAXIMUM STORAGE TEMPERATURE* DEG F 

OOCOOO 

COlOl 

98* 

c 

TSL " 

MINIMUM STORAGE TEMPFR'aTUR E. DEG F 

occooo 

CCICI 

99* 

c 

HE - 

maximum STORED ENERGY, KWH 

CCQOOO 

UOlOl 

SO* 

c 

HT - 

MAXIMUM EXIT TEMPERATURE, DEG F 

COOOOD 

COlOl 

51* 

c 



ccocoo 

LOJOl 

52* 

c 

IRPUTS 


GOODOC 

COlOl 

53* 

c 

NU - 

STORAGE ENERGY LOSS COEFFICIENT 

CODOOO 

COlOl 

59* 

c 

ST - 

rated STORAGE TIME* HR 

COCOOO 

COlOl 

55* 

c 

BE - 

STORAGE energy MIXING COEFFICIFNT, l/HR 

DOOCOO 

00101 

56* 

c 

TOl - 

MINIMUM allowable STORAGE TEMPERATURE, DEG F 

ODDOOO 

OOlOl 

57* 

c 

DTO - 

media TEHPERATURE SWItJG, DEG F 

CDCiOOD 

DClOl 

58* 

c 

PD - 

RATED Thermal storage power, kw 

000000 

ODIOI 

59* 

c 

TEH - 

MAXIMUM allowable EXIT TEMPERATURE. DEG F 

COCOQC 

ODIDI 

60* 

c 

xo - 

DESIGN POINT FRACTION OF MOLTEN MEDIA MASS 

COGOCQ 

OCIDI 

61* 

c 

EFl - 

INPUT PRODUCT EFFICIENCY 

COOCCC 

3C101 

62* 

c 

HPl - 

MAXIMUM INPUT CHARGING RATE 

CDOODC 

COlOl 

63* 

C 

CPI - 

STORAGE MEDIA HEAT CAPACITY, KUH/LB-F 

CCOCOO 

COlOl 

69* 

c 

H 

STORAGE MEDIA HEAT OF FUSION, KWH/LB 

CQDOCD 

UDIDI 

65* 

c 

TMT - 

STORAGE MEDIA MELT TEMPERATURE, DEG F 

ODDODO 

OOlOl 

66* 

c 

CPF - 

AIR HEAT CAPACITY, KWH/LB-F 

CODOOO 

ODIQI 

67 * 

c 

KF - 

AIR Thermal conductivity, kwhxft-f 

003000 

r.OiOl 

68* 

c 

HU - 

AIR VISCOSITY, LB/FT-HR 

COOODD 

C-OlOl 

69* 

c 

MT - 

number of H/X TUBES 

OOOCDC 

COlOl 

70* 

c 

D 

TUBE DIAMETER, FT 

GO DO 00 

COlOl 

71* 

c 

L 

TUBE LENGTH, FT 

CCDOOD 

DOlOl 

72* 

c 

DEL - 

TUBE HALF SPACING, FT 

GOQOOO 

POlOl 

73* 

c 

K 

STORAGF media THERMAL CONDUCTIVITY 

CODOCO 
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DO 

O 

CO 

-p- 

0 

I— » 
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Ml - Inlet mass flow rate* lb/hr 

CM - STORAGE DEVICE YEARLY MAINTENANCE COST S/KW 
CSA - STORAGE DEVICE CAPACITY COST, S/KW 
CSB - STORAGE DEVICE ENERGY COST, S/KWH 
LE - UNIT LIFE expectancy, YEARS 

M3 - discharge CYCLE MASS FLOU RATE FROM CS, LB/HR 
T3 - DISCHARGE CYCLE TEMPERATURE FROM CS, DEG F 
TA - AMBIENT TEMPER ATURE, DEG F 

TSO - STORAGE VESSEL MINIMUM TEMPERATURE FROM CS, DEG F 

COMMON /C1MPL/1MPL,ICNT/CTIHE/TIME /CSl MUL /DUM< 7 » ,Tm AX 
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IFCeC .EQ. .999991BE = 0.0 
IFirOI.EO. .99999>T01=60.0 
IFCOTD.EO. .99999IDT0=Ar0.0 
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T5U=0.D 

ME=O.P 
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T3=TA 
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MA =PD*n.5*ST/IXD*H+CPl*OTOI 
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CM= CM*PD 

El =MA*CP1*(TMT-T01> 
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EXIT TEKPERATURE AND DISCHARBE RATE 

CDC60C 

CDZ67 

2C3* 

c 



C0067G 

0 0270 

20 5* 



TT= T3* DEL7* UA* 1 7 5-TSC* T EHP J 

£00606 

00271 

210* 



To- TV* BELT ♦ UA* tTY~fT51*TS2»*.5*TEf!Pl 

C0C616 

OC272 

211* 



PO =M3*Cpr* t 70-731 

CC0627 

00273 

212* 



py= «5*cpr*fTo-ryj 

GOC632 

00273 

215* 

c 



C00632 

DO 27 3 

214* 

c 


ENEBGT DEPOSITED 

CC0632 

00273 

215* 

c 



C06632 

C0273 

216* 

c 



COG632 

00 27H 

217* 


330 

IFflEl.NE.Ol DEl= PX- Py -HU*ECI -BE*rECl-EC2) 

CCG637 

0G276 

21 K* 



JFIIEZ.NE.OI 0E2= P-PX - (PO-PYl -NU*EC2 •»EE*cECl -CC2 1 

CG06S3 

00276 

21 5* 

c 



C0D6S3 

CC303 

22 C* 



IF «T2.Lr.TEN) 60 TO SOD 

C00667 

00 300 

221* 

c 



C0C667 

CO'32 

227* 



I F 1 I M PL . r 0 . 2 1 WR 1 7 E t 6 , 1 0 1 0 3 T 2 » TE « 

GGC673 

CC337 

223* 



TFT 1 HPL ,E 0 . 21 ICNT rlCN T ♦ I 

CC0705 

C'0307 

22^* 

c 



COG 70 5 

003C7 

225* 

c 


MAXlHUH ALLOtfABLE CHAP.6E AND FLOW RATES 

C007C5 

C0307 

226* 

c 



CC07C5 

0C311 

227* 


5 00 

NDH= PO/ICPr*07Dl 

C007J 4 

0C31 1 

223* 

c 



DC071 4 

G0il2 

229* 



PM =HDN*CPF**TI-TA3 

C0072C 

CC312' 

230* 

c 



00072 C 

GC312 

231* 

c 


CHARGING A><D DISCHARGING EFFICIENCr 

CD072C 

00312 

23 2* 

c 



CD0720 

00313 

235* 



EFF=1.0 

C0G726 

00313 

234 ♦ 

c 



000726 

00314 

235* 



IF IT2 .GE . TS 0 )ErP= 1 T2-TS01 / 1 71 -TA 1 

C0073C 

00314 

236* 

0 



€0072 C 

1 0316 

237* 



EFO =1.0 

C0D74C 

005X6 

237* 

c 



£00740 

T.snj 

23-9* 



IFt T3.CT, TS01EFO=«TO-TAl/n3-TSOl 

C0G742 

0033 7 

240* 

c 



f.0C742 

00321 

241* 



KP2=AHIN1(MP1 ,PKl*ErF 

CGC754 

00 321 

242* 

0 



CC07S4 

GC322 

245* 



EFZ-tri^ZFF 

GC0 76 3 

00322 

244* 

c 



000763 





:-022.2 


P 


znm-hj 

CCS 22 


C 

ST*T, 157705 

■ E?5762 

C'^32,2 

zm* 

■t 


25C75Z 

5C 5 

ZHS* 


ir 1 1 «-Pt *L|:,. I ) »£ TOJB K: 

500755 

3.2J 

.2-H9* 

c 


5tC755 


253* . 


750 -mk%ti75U.t7^'5-it 

GC&77S 

Z-Z'itb' 

251* 


TSL =I.KI37I{7£L^7S2 1 

531232 

£5 527 

252* 


re - /f'-i.icift'E, rci^=£c.2i 

ESI 3 17 

i£C-333 

25Z* 


KT =1H#.SC,I{KT :t721 

531522 

£CJS:J 

25^'* 

c 


CO 152 3 

5.5 55J 

255* 


If { 7 7 t*e 7.. 7K* X 1 1 RE TttiejK 

C01526 

C5JJ-1 

25C* 

c 


531C26 

f £225 

257* 


cci -CC1*CC 

Cr.ic*5 

C/C35it 

25&* 


ctizcm*CK 

C01C%C 

5532S 

255* 


cr~ t*/273 

:C0 15« 3 

2 

.255* 

-t 


0515^2 

tz^nh. 

25 t* 


RffORW 

COICSC 

ZtZZh 

252* 

c 


CCiCRfe 

C&25T 

25H* 

113:10 

fmnkuxmatmt exit TEHPER^TyR-E ffia.i 

CD151fe 

■£C257 

25^* 


(. :»35H SHEATER Ki;XIj<y» <l,tL0W«Bl£ ,Ei2#21 

001515 

«£.357 

255* 

■:C 


CS 151(6 

£-22^3 

25 1* 


CI.D . 

C31SX6 



7.17 ADIABATIC HEAT EXCHANGER - DISCHARGING CYCLE 



MASS FLOW RATE (Ml) 

HX EXIT TEMP. (T0) 

HX EFFICIENCY (EF0) 
MAX. INPUT POWER (MPl 
INPUT POWER (PI) 



— ^MASS FLOW RATE (M2) 

— 3*^XIT TEMPERATURE (T) 

— ^-DISCHARGE POWER (P) 

— 3—MAX. output power (MP2) 
— ^.--OUTPUT EFFICIENCY (EF2) 


HY is the discharge cycle complement to HX. All the calculations to obtain 
the exit temperature and heat exchange power deposited or withdrawn are done 
in Hx. The results are then passed to HY for summary. 
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Pat anietyr/Pot t" 

Poser Ibt Ion 

Units 

M 

1 

Air mags flow rate from storage 

lb/ hr 

T0 


Exit temperature from HX 

°F 

P 

1 

Discharge power from storage 

kw 

r.F0 


Discharge cycle efficiency from HX 

- 

MP 

1 

Maximum power from storage 

kw 

■OulPUX^ 
Varteib 1 
M 

2£Pfiill 

2 

Exit air mass flow rata <=Ml) 

lb/ hr 

T 


Exit temperature t»T0) 

°F 

P 

2 

Disctiargo power 

kw 

MP 

o 

Maximum discharge power 

kw 

EF 

2 

Output product efficiency 


-Sial-]g± 

TL 

Iss 

Minimum exit temperature 

Op 

TU 


Maximum exl t temperature 

°F 

SP 


Total energy discharged. 

kwh 


Caloulation SoquoriGo 

X) M2 = AU 
T = T0 
MRS a MPX‘5«iF0 
EF2 = EF0 
P2 P1^W0 
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c 
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c 
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c 
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27* 

c 
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Ml - AIR MASS flow RATE FROM STORAGE, LF/HR 
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c 
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7.18 INTEGRATOR WITH SATURATION 





Outputs 




Input 

Integration gain 

Saturat ion i imlter gain 

Upper limit of output (Default =10 ) 

Lower limit of output (Default = -10'^ ) 

Output (state) 



FO = GKHf [FlN-GKL-SHFO-AAW) ] if F(3 > AiWA 

■ 

F0 = GKI -^f FlN if AMt<F0<AMA 

F0 = GKHt [FIN-GKL-JHFO-AMI ) ] if F(D<AM! 
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EXTEBHAt BEFEREHCES < BLOCK, MAKEJ 
0003 HEPR3S 


STORAGE ASSIGHMEHT tBLOCK, TTPE, RELATIVE LOCATIOH, NAME! 


DODO 

5? DODDDO 

EPS 

0000 0D0003 IHJPX 





COIOD 

1* 

CIT 





ODCODD 

00 101 

2* 


SUBROUTINE IT t Fo.FODOT.IFO ,FIN ,GKl,GKL 

,AHA,AMI> 



ODODOO 

OOlOl 

3* 

C 

version 2. REVISED OCT 6 1976 



CD GOOD 

OClOl 


C 





ODODOO 

001 Dl 

•s# 

c 

purpose - SIMULATION OF AN INTEGRATOR WITH SATURATIOH 



DCCDOC 

COlOl 


c 





CCCODD 

00101 

7* 

c 





CO COO G 

10101 

&* 

c 

method - SEE CODING 




OOC0GO 

0010 1 

9# 

c 





ODODOO 

CDIDI 

13* 

C 





COCOOO 

C01O1 

11 ♦ 

C 

LIMITATTONS - EXCESSIVELY HIGH VALUES OF 

GKL MAT RESULT 

IN POOR 

DOCODO 

DC 101 

12* 

c 

STEADY STATE CONVERGENCE 




GCOOOO 

•roioi 

13* 

C 





COOOOC 

CClOl 

IRA 

c 





cccnoa 

:ciDi 

15* 

c 

WRITTEN BY - ADAM LLOYD 

LATEST REVISION - NOV 

75 

CDODOO 

CD 101 

16* 

c 





CCOCDO 

CO 101 

1 7* 

c 





COCDDO 

CDIQI 

18* 

c 

INPUT/OUTPUT LIST 




ccooca 

ooipi 

19* 

c 





cooooo 

''DlCl 

20* 

c 

FO INTEGRATOR OUTPUT 

ANY 

OUTPUT 

STATE 

ODODOO 

10101 

21* 

c 

fODOT OUTPUT DFRIVATIVE 

ANY 

OUTPUT 

DEP.IV 

UCE030 

00101 

22* 

c 

IFO INTEGRATOR CONTROL 

— 

PROGRAM 

i VAR 

COOOOO 

roici 

23* 

c 

FIN FUNCTION INPUT 

ANY 

INPUT 

VAR 

COOOOO 

QDlOl 

2H* 

c 

GKi integrator gain 

ANY 

INPUT 

PARAM 

CO 00 00 

COICI 

25* 

c 

GKL DERIVATIVE LIMITER GATH 

ANY 

INPUT 

PARAM 

OOODOQ 

CD 131 

26* 

c 

AMA UPPER LIMIT OF OUTPUT 

ANY 

INPUT 

PARAM 

OOCODO 

00131 

27* 

c 

WHERE DEBIV. LIMITER STARTS 




DOC coo 

'’0101 

28* 

c 

AMI LOUEP LIMIT OF OUTPUT 

ANY 

INPUT 

PARAM 

OQCCOO 

CCiOl 

29* 

c 

WHERE DERIV» LIMITER STARTS 




uOGCOC 

00133 

30* 


EPSrFTM 




COOGOC 

CC10 3 

31* 

c 



GDCDOO 

aoto«i 

32 ♦ 


IF tAKA.C0..999991AHA=l.£36 




COCO Cl 

30136 

33* 


IF( AKT.E0..99999> AHI=-1 .E36 




C0CC06 

COHO 

3R* 


ir iro,GT . AHAIEPS - FIN - GKL*tFO-AMA» 




BGCDI 3 

f.0112 

35* 


If tro.Lt.AHlIEPS r FIN - CKL*(FO-AMI> 




000029 



, 1 . 
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oont 

36 « 

ir<lf0,Nt,0IF000T=6KI*EPS 

00116 

37* 

RtTURN 

00117 

38* 

END 


000035 

0000^2 

000066 


'■ 'w«r»55!;— ~n''-esKTi7ukifrjmmxvt-T.sir-vxr^ 


7.19 DC-AC INVERTER 



DC POWER (PI) 
INPUT MAX. POWER 



AC POWER (P2) 

OUTPUT EFFICIENCY (EF2) 
OUTPUT MAX. POWER (MP2) 


This component models a solid state Inver ter/ transformer. Power losses due 
to resistive heating and contact potential loss are modeled. A step-up trans- 
former may also be needed to boost output voltage up to that of the bus. 
Default parameter values are based on rated power = 200 kw. 



FIGURE 7.19 INVERTER FUNCTIONAL DIAGRAM 
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lOPUt^ 

.t^argmeter/ftort 

Poser Ip H on 


P 1 

DC Input power 

kw 

RT 

Transformer realstanoe (0 - 01 

v'ntsta 

VPC 

Rated DC voltage (D - 1001 

VO 1 1 s 

PI 

Inver tet oontact potential (D oi 

vo» ts 

r\l 

Invet ter resiatanoe ID - O^OOM 

ohms 

RAP 

Rated fnnut power 

Kw 

Id i 

Input product etHciencv 

- 

\^P 1 

A\a\{mum Input power 

kw 

cc 

Inverter cost/year 

$ 

OutpuUi 
Vat: lab 1 export 

P P 

AC output power 

kw 

IDC 

DC Input current 

atnps 

PL 

Power loss 

kw 

EF 2 

Output product efficiency 


MP 2 

iWaxtmum output power 

kw 


0 "• Defaull values suppUed, 
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IV 

Ca ! cu I a t i on, ■$mu.exi&£ 

If PI <0, P2 = IDC = PL = 0, EFF = 1 and go to 5) 

1 ) Input and output current 

IDC = pmooo/voc 

lAC = V^|oc/tt 

2) Power loss and output power 

PL = ( IDC-JHDI+RI*1DC) + AC^) /lOOO 

P2 = PI - PL 
EFF = P2/P1 

P2 5 0 O Diagnostic, EFF = 1 

3) Efficiency and maximum power 

EF2 = EF1-«£FF 

MP2 = M1N(MP1,RAP)-!<€FF 

4) Compute Costs 
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SUBROUTINE IV ENTRY POINT 000175 


STORACC USED CODEll) 000261; DATA(O) 0030«l6l BLANK C0HH0N(2I 000000 

COMHOH P LOCKS 

0003 ClMPL 000C02 
aOO«J CTIHE 000301 

0005 CsIHUL COOSlO 

0006 COST OCOOOt 


EXTERNAL RErCRENCES (BLOCK, NAME) 
OnoT SORT 

0010 r.unus 

0011 NI02S 

0012 NCRR3* 



STORAGE ASSIGNMENT (BLOCK, TYPE, RELATIVE LOCATION, NAME) 

0001 0C0O3G lOOL 0001 000047 200L 3000 OOQOOK 208F 0001 OOOIKS KOOJL 0C06 R QOOOOQ CCl 

00C5 OUCODO DUM 0000 R DG0003 EFF 0000 R QOCODO lAC 0003 I 000001 ICNT 0003 1 QOOCOO IMPL 

QOOO OC003V INJP5 ODOO R OODDOl PI 0004 R OOCOOQ TIME 0005 R D000C7 THAX 0000 R 000002 TMAjrl 


CO 100 

1* 

CTV 


000000 

CO 101 

2* 


SUBROUTINE IV(P2,IDC, PL,EF2,MP2,P1,RT,V0C,DI,RI,RAP,EF1,MP1, 

CC) EOCOQO 

COlOl 

2* 

C 


CODOOO 

00101 

4* 

c 

PURPOSE SOLID STATE INVERTER/TRANSFORMER MODEL 

COOOOG 

OOIDI 


c 


COOCOO 

COlOl 

b * 

c 

METHOD COMPUTE AC POWER AS A FUNCTION OF 

couooo 

uQlDl 

7* 

c 

INPUT DC POWER 

UCOOQO 

COlOl 

8* 

c 


OCOOOQ 

COlOl 

9* 

c 

WRITTEN BY Y.K.CHAN VERSION 1, JUNE 2, L97T 

OCOOOO 

COlOl 

10* 

c 


DCOOOO 

aoi;n 

11* 

c 

CALL SEQUENCE 

OOGOOO 

COlOl 

12* 

c 

OUTPUTS 

000000 

COlOl 

13* 

c 

P2 -AC OUTPUT POWER, KW 

000000 

COlOl 

14* 

c 

IDC -DC INPUT CURRENT, AMPS 

cocooa 

00101 

15* 

c 

PL -POWER LOSS, KW 

COLCOC 

CO 101 

16* 

c 

EF2 -output POWER EFFICIENCY 

QCDODD 

COlOl 

17* 

c 

HP2 -MAXIMUM OUTPUT POWER, KW 

CODCQO 

ODIOI 

IS* 

c 

INPUTS 

OOCOOO 

00101 

1 9* 

c 

PI -DC INPUT POWER. KW 

000000 

COlOl 

20* 

c 

RT -TRANSFORMER RESISTANCE, OHMS 

CCCDOC 

OPIGI 

21* 

c 

VDC -RATED DC VOLTAGE, VOLTS 

OCDOOC 

uOlOl 

22* 

c 

01 -INVERTER CONTACT POTENTIAL, VOLTS 

oCODOO 

COlOl 

23=* 

c 

R1 -inverter RESISTANCE, OHMS 

CODOOO 
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GO 101 

24* 

C 


RAP -RATtO OUTPUT 1 

POWER. KU 

000000 

CDlOl 

25* 

C 


tri -INPUT PRODUCT 

EFFICIENCY 

OOGOOC 

COlOl 

Z6* 

c 


MPl -MAXIMUM INPUT 

POWER, KU 

OQC300 

C012I 

27 * 

c 


CC -INVERTER COST/VEAR 

COCDQO 

GOlOl 

26* 

c 




COOOOC 

CD103 

29* 



COMMON /CIMPL/IMPL,TCNT/CT1ME/T1ME/CSIMUL/OUMC71,THAX/C05T/CC1 

ocoooc 

QCIOM 

30* 



REAL I0C,MP2,MPltIAC 


COCiOOC 

;0105 

31* 



DATA Pl/3. 14159/ 


oocnoo 

00105 

32* 

c 




QOCCOQ 

C0107 

33* 



TFC IMPL.GT.OI 60 TO 100 


COODOC 

coin 

34* 



•TMRT.EO. . 99999 »RT=Q. 


000002 

C0113 

35* 



IF IWDC.EO.. 99999 1 VDC=1 00. 


ooc.r 06 

00115 

36* 



IF( 01. EO.. 99999 101=0. 


COOOl 3 

C0117 

37* 



1MR1.EQ..9 9999)RI = .005 


CDG017 

roizi 

36* 



TKAX1=TMAX*. 99999 


CDC024 

CCUZl 

39* 

c 




CCuD24 

CDIZI 

4 0* 

c 


COMPUTE INPUT and 

OUTPUT CURRENT 

000024 

C0121 

41* 

c 




000024 

r0l22 

42* 


100 

irtPl.GT. 0.160 TO 2D0 


GD0C3C 

G012<< 

43* 



P2=Q. 


000032 

00125 

44* 



IDC=0. 


000033 

P0126 

45* 



PL=0. 


006034 

CC127 

46* 



rF2=EFl 


C00035 

DC130 

4 7* 



MP2=AMIN11MP1,RAP J 


000037 

00131 

4ft* 



GO TO 40C 


CC004S 

00132 

49* 


2 00 

IDC=Pl*lQOa./VDC 


C0C047 

0rl33 

50* 



IAC=S0RT»6.1*IDC/PI 


C06DS2 

□ 0133 

51* 

c 




000052 

00133 

52* 

c 


POWER LOSS AND OUTPUT POWER 

C00052 

00135 

53* 

c 




0CC052 

0013<l 

54* 



PL=f IDC*IDI*RI*lDC»*S0RTt3. 

l*RT*IAC*IAC 1/1000- 

C0CQ6C 

C0135 

55* 



P2=P1-PL 


C0D075 

00136 

56* 



EFF=P2/P1 


000077 

00135 

57* 

c 




CO 007 7 

C.0136 

SB* 

c 


EFFICIENCY AND MAXIMUM POWER 

E0C077 

00135 

5 9* 

c 




000077 

Q0137 

6 C* 



EF2=EF1*EFF 


000101 

00140 

51* 



MP2ZAMIM1 IMPl ,RAPI 


CDC103 

00141 

62* 



MP2=MP2*EFF 


COQlll 

00142 

63* 



IFIP2.GT.0. ICO TO 400 


CC0114 

QD142 

64* 

c 




CQQ114 

00144 

65* 



EF2=EF1 


CCC117 

0014 5 

6 6* 



MP2=AMINIIMP1 ,RAPI 


0CC121 

00145 

67* 



1F{1HPL.EQ.21URITE t5,208)PL 

,P 1 

C00123 

C0153 

66* 


2 08 

FORMATIIHD, 14HIV POWER LOSS 

,F12.3,21H EXCEEDS INPUT POWER ,F12.3, 

Q0C135 

00153 

69* 



126H CHECK RATED DC VOLTAGE 

WDC 1 

0DC135 

CC1S4 

70* 



IF (IMPL.E0.2)ICNT=ICNT+1 


G00135 

00155 

71* 



P2=0. 


C00143 

00156 

72* 

c 




00C143 

20157 

73* 


4 00 

iniMPL.LE. IIRETURN 


C0C145 

00161 

74* 



1FITI>«E.LT.TMAXI)RETURN 


0QC153 

00163 

75* 



CCI=CC1«CC 


000162 

00164 

76* 



RETURN 


DDG165 

CD165 

77* 



ENO 


C0C26C 


7,20 FIRST ORDER LAG 






Input quantity 
Gain 

1 

Time constant (hours) 


F0 Output variable (state) 



F0 = (GAI ^'1- FIN - F0)/TC 
NOTE: d.c. gain = GAI; time constant = TC 

infinite frequency gain = 0 

pole location = rad/sec. 


^ If TC = 0, then F0 = FIN^K5A1 
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SUBROUTiW; L* EKTBY POINT DQ0026 

STORHer USED COOEUI 0000*15: D«TAtai 000010? BLAMK COHBONtZi OODCOQ 
COMMON BLOCKS 
0003 CIO C00DC3 

EXTERNAL BFrERENCES (BLOCK, NAME I 
ODOA NEBR3S 


STORAGE ASSI&KMEKT (BLOCK, TYPE, RELATIVE LOCATION, NAMEI 



0003 

CCDOlO 

lOL 

0003 000002 2DIAG 0000 OOQDQO INJP* 

0003 ODD ODD IRE AO 

0C03 COCOOl 


00 ICO 

1* 

CLA 





CODO0O 


COlOl 

2* 


SUBROUTINE LA(FO,FODOT,IFO,PIN,GAI,TC) 




000000 


COlOl 

3* 

C 





00 COCO 


00101 

«s* 

c 

PURPOSE - TO SIMULATE FIRST ORDER LAG 

FO 

6AI 


CO 0000 


LOlQl 

5* 

c 


— ^ — r 




CDOOOQ 


COlOl 

6* 

c 


FIN II 



LOUCCQ 


COlOl 

7* 

c 





CCOPCO 


00101 

e* 

c 





COOOOC 


ODlDl 

9* 

c 

METHOD ~ SEE COOING 




COO02S 


00101 

10* 

c 





0DC-3BC 


00101 

n» 

c 





GODO0C 


CClOl 

iz* 

c 

WR17TEM by - ADAM LLOYD LATEST 

REV 1ST OH 

NOV 75 


OOGOOO 


00101 

13* 

c 





CDCGGQ 


00101 

19 ♦ 

c 





ECLDOC 


to 131 

15* 

c 

IHPUT/OUTPUT LIST 




CD 0000 


00131 

lfc» 

c 





oonocc 


2C101 

17* 

c 

FO TRAMSFEP. function OUTPUT 

ANY 

OUTPUT 

STATE 

snccuD 


COlOl 

12* 

c 

POOOT TRANSFER FUNCTION OUTPUT >’■ 7. 

ANY 

OUTPUT 

STATE 

CC-GGO0 


COlOl 

19* 

c 

ifo imtegerator control 



program 

: VAR 

COCOOO 


COlCl 

2G* 

c 

FIN TRAMEFER FUNCTION INPUT 

Any 

INPUT 

VAR 

ZGtOOG 


COlOl 

21 * 

c 

GAT TRANSFER FUNCTION GAIN 

— 

INPUT 

PARAM 

C00C3C 

03 

OCIGI 

22* 

c 

TC TIME constant 

SECS 

INPUT 

PAR AM 

CPCO0O 

i/1 

C0133 

Z 3* 


COMMOW/C10/1READ,IURIT£ ,idiag 




0OCGOC 

-pk 

OC10«J 

29* 


If (TC. HE. 0,1 GO TO 10 





o 

CD1&6 

25* 


F0= gaiafih 




COCOOl 

CO 

SO 107 

2fc* 


return 




OCGC-09 

o 

3011 0 

21* 


10 irfIFO.NE.O) F0D0T=(GA1 *FTh-F0)/TC 




CO0O1O 

ro 

00112 

2fl* 


RETURN 




C0C016 


CSllI 

2 9* 


END 




CDnOAH 


lURlTE 






7 . 21 LEAD LAG 



FIN 

GAI(TC1*S+1) 

F0 


TC2»S+ 1 



I ripuljs 

Paramefer/Port 


FIN 

TGI 

TC2 

GAl 

Outputs 
Var iabi o/Port 


XI 

F0 


o. e .sgrJ.KLtlQn 

Input quantity 

Numerator time constant (hours) 
Denominator time constant (hours) 
Gain 

Intermediate quantity (state) 
Output quantity (variable) 


Calculation Sequence 

F0 " (XI + FlN^J-TGl^AI )/TC2 
Xl = GAH<-FIN-F0 
NOTE: d.c, gain ^ GAI 

Infinite gain = 


zero location = - ^ rad/sec 

1 


pole location = ^ , rad/sec 
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ENTRY POINT 000022 


K) 


SUSROUTINE LL 

STORAGE USED CODEfl) 000031; DATAIO) OOOOOO; BLANK C0HH0N(2) OOOOCO 
COMMON BLOCKS 
0003 CIO 000003 

EXTERNAL REFERENCES (BLOCK. NAHEl 
DOOq NLPR3S 

STORAGE ASSIGNMENT (BLOCK, TYPE, RELATIVE LOCATION, NAME! 

0003 000002 IDIA6 0000 000000 INJPS 0003 000000 IREAO 0003 000001 lURITE 


00100 

1 * 

CLL 





000000 

COlOl 

2* 


SUBROUTINE LL ( XI ,X lOOT ,1X1 ,E0 ,FIN ,T C 1 , TC2 

,6AZ1 



000000 

00101 

3* 

C 





OCOOOO 

GOlOl 

R* 

C 

PURPOSE - TO SIMULATE LEAD LAG TRANSFER FUNCTION 



ocoooc 

OClOl 

5* 

C 





000000 

DClOl 

6* 

C 

ro gai*(1.*tci*si 




CC CO C u 

OOICI 

7 * 

c 





ooccao 

00101 

8 * 

c 

FIN (l.*TC2*S> 




coccoo 

COlOl 

9* 

c 





GO CO DO 

00101 

10* 

c 





oococio 

COlOl 

11* 

c 

METHOD -SELF EXPLANATORY 




ocaooo 

COlOl 

12* 

c 





coccoo 

CQIDI 

13 * 

c 





000000 

COlOl 

1 «* 

c 

LIMITATIONS - NONE 




OOCDOO 

uOlOl 

15* 

c 





QOCOOG 

COlOl 

16» 

c 





OOCODO 

00101 

17 * 

c 

WRITTEN BY - ADAM LLOYD LATEST 

REVISION 

NOV 75 


OCOOOO 

CClOl 

1«* 

c 





OODDOG 

COlOl 

19* 

c 





CiOCOOO 

ClOlCl 

20* 

c 

INPUT/OUTPUT LIST 




cococc 

00101 

21* 

c 





CCODOD 

uOlDl 

22* 

c 

XI STATE VARIABLE 

ANY 

OUTPUT 

STATE 

coccoo 

C-OIDI 

23* 

c 

XlOOT STATE VARIABLE DERIVATIVE 

ANY 

OUTPUT 

state 

coccoo 

00101 

2M * 

c 

IX 1 INTEGRATOR CONTROL 

— 

PROGRA 

M VAR 

COODOU 

COlOl 

25.* 

c 

ro TRANSFER FUNCTION OUTPUT 

ANY 

OUTPUT 

VAR 

000000 

roici 

26* 

c 

FIN TRANSFER FUNCTION INPUT 

ANY 

INPUT 

VAR 

COOODO 

COlOl 

27* 

c 

TCI TIVE CONSTANT (NUMERATOR) 

SECS 

INPUT 

PARAM 

coccoo 

CQICI 

20* 

c 

TC2 TIME CONSTANT (DENOMINATOR! 

SECS 

INPUT 

PARAM 

ccoooo 

00101 

29* 

c 

GAI TRANSFER FUNCTION GAIN 

— 

INPUT 

PARAM 

ODCOOC 

0 0103 

3 0* 


COMMON/C 10 /I RE AO, I URITE .IDIAS 




DOOQOO 

C010^ 

31* 


FD- (X1*FIN*TC1*GAI )/TC2 




COOOOG 
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CCIOS 

C0107 

COHO 


32* IMIX1.NC.OIX100T= GAI*F1N-F0 

5 3* RtTURN 

3*1* rwD 


QC0005 

C0C013 

C0CD3Q 


ORIGINAL PAGE IS 
POOR QUALITY 


7.22 ELECTRICAL LOAD 



VALUE OF ENERGY^DEIIVERED (VDE) 


MAX. INPUT POWER (MPl) 
INPUT POWER (PI) 
RECORDED LOAD (LOl) 

LOAD PROFILES (PD, PW.PY 
TIME INPUTS (TD.DW.WY) 



POWER REQUEST (^El) 


This component represents electrical load either by a user-specified data 
file time history or by a set of random numbers with user-specified daily, 
weekly, and yearly average profiles and user-specified random variation. 

It also computes the value of the power delivered to the load by the sys- 
tem. This value delivered is determined from a user-specified value per 
kwh. This value may be input in tabular form as a function of time of day, 
time of year, or any other system parameter. 

if the user selects to have the electrical load represented by random num- 
bers, then the load (L02) is generated from the following equation: 

Basic Equation 

L02 = [PD(TD) + CN(t)] * PW(DW)*PY(WYHSMC 

where 

PD, PW, PY are the daily, weekly, and year I y prof i 1 es, respective- 
ly, and TD, DW, WY are the time of day, day of the week, and week 
of the year, respectively. NC is a normalizing constant. 

CN is a colored nol se term with user-specified correlation time, standard 
deviation and mean. 
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Tables 


Descr ipt ion 

linLts 

PD 


Dally profile (tabular with TD) 

kw 

PW 


Weekly profile (tabular with DW) 

arbi trary 

PY 


Yearly profile (tabular with WY) 

arbi trary 

I.Te.Ul.§ 




Parameter/Port 



P 

1 

Power del ivered 

kw 

MP 

1 

Maximum Input Power deliverable (D = IXIO ) 

kw 

NC 


Normalizing constant 


VE 


Value of Electrical Energy 

$/kwh 

L0 

1 

Electrical load data file input 

kw 

TD 


Time of day 

- 

DW 


Day of week 

- 

WY 


Week of year 


CT 


Correlation time of random noise 

hr 

MN,STD 


Mean (D = 0) and std. deviation of random noise 

kw 

EF 

1 

Input Power Efficiency 

- 





Var i ab 1 e/Port 



RE 

1 

Power request 

kw 

VDE 


Value of energy delivered (state) 

$ 

L0 

2 

Electrical load 

kw 

TiM 


Last time a random sample was used 

hr 

CN 


Colored noise sample 

kw 




SRE 


Total energy requested 

kwh 

SDE 


Total energy delivered 

kwh 

PC 


Percentage of load met 

- 


D - Defau 1 1 Va I ues suppl ied 
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Calculation Sequence 




II Initialize CN(0) (first pass) 

2) Check for data file Input 

If L01 = .99999 go to 3) 

L02 = L01 and go to 5 ) 

3) Generate colored noise CN 

If TIM = TIME go to 5) 

A = /exp ( -A/CT)/ CT>0, A= integration step size, hr 
\ 0. CT=0 

CN = At(CN+W, 

Where W Is white noise generated by RN with 
Mean * MN * (i-A) and standard deviation = STD * 

4) Compute L02 

L02 - (PD(TD) + CN) * PW(DW) * PY (WT) * NC 
TIM » TIME 

5) Power request and value delivered 

RE - MIN(MP,L02)/EF1 

6) Statistics 

VDE - PIWE 
SRE ■ SRE -t L02tt A/2 
SOE - SOE + PI* A/2 
PC - 100.* SDE/SRE 
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SUBROUTINE LO ENTRY POINT 0003RR 


STORAGE USED CODE til 000<«7X; DATACOI 000055; BLANK COMKONt2 1 000000 

COrt»*ON BLOCKS 

0003 C3MPL ODDDOl 
Q0U4 CSIMUL 000 DXO 

0005 CTIHE DGQOOl 

0006 COST 000006 


EXTERNAL REFERENCES t BLOCK, NAME I 

0007 RN 

0010 TBLUl 

0011 EXP 

0012 SORT 

0013 NEPR3* 


STORAGE ASSIGNMENT CBLOCK, TYPE, RELATIVE LOCATION, NAMEI 

0301 CCO062 lOL 0001 000070 lOOL 0001 000233 15QL 0000 R 000005 A OCOO R 000000 AX 

DP06 DCCOOQ CC 0006 R ODOODI COE 0006 OOCODl CM 0006 000002 CO 0006 R OOC0O5 CRE 

03C6 R CQCC03 CV 0000 R OOOOll OLO 0C0<» 000000 DUM 0003 I OODOOD IMPL 0000 000022 INJP* 

OCOO 1 CC.0C01 NO OOOD I 000002 NW 0000 T 000003 NY 0010 R 000000 TBLUl D0G5 R 000000 TIME 

□ CO«i R 000006 TINC 000« R 03C00T THAX 3000 R OOOOON TMAXl 0000 R 000010 H 0000 R C0DD12 WLO 

DODO R CC0006 WMN 0300 H 0DC007 USD DODO R 000013 YLO 


CD 100 

M 

CLO 



000002 

COlQl 

2 * 


SUBROUTINE LO ( PD , PW , P Y ,VDE ,0 VO , IVO ,RE ,L02 ,SRE,SOC ,PC ,T1M0 , XN , 


0C0002 

CO 101 

3* 


1 TD , 0 U, U Y, XNC , CT, XHN, STD, VE,L01, PM AX, PO ,EEI 


CCQC02 

CDlOl 


C 



CQCD02 

OOIDI 

5* 

C 

PURPOSE generate ELECTRICAL LOAD FROM DAILY, MEEKLY, YEARLY AND 


000002 

ODIDI 

6* 

C 

random profile data and EVALUATE PERFORMANCE STATISTICS 


000002 

00101 

7* 

C 



C0C0Q2 

CDlOl 

8A 

C 

method colored noise ts added to a mean daily profile and multiplied 

Q0C002 

COICI 

9* 

c 

BY WEEKLY AND YEARLY UCIGHTING FCNS . POWER REOUESTEO IS 

either 

000002 

00 101 

ID* 

c 

THE GENERATED LOAD OR THE MAX, POWER DELIVERABLE. 


CDCC32 

COlOl 

11* 

c 



CD0C02 

i-DlOl 

12* 

c 

WRITTEN by a. U, warren VERSION 1, MARCH 

9 1977 

D0DDD2 

CDICI 

13* 

C 



C00CC2 

CO 101 

14 * 

c 

CALL SCOUENCE 


CCCD02 

roioi 

IS* 

c 

tables 


C0C0D2 

CDlOl 

IG* 

c 

PD - MEAN daily profile, KW 


0DD0D2 

L'ClOl 

17* 

c 

PU - mean weekly profile, - 


D0G0D2 

OOlOl 

IB* 

c 

PY - MEAN YEARLY PROFILE, - 


1.0C002 

DOIDI 

19* 

c 



COG002 



BCS 40180-2 


DOlOl 

20* 

C 


OUTPUTS 

QC0002 

00101 

21* 

C 


VDE - VALUE OF ENER5Y DELIVERED JSTATEI# » 

D00002 

noioi 

22* 

C 


DVD - DERIVATIVE OF VDE 

000002 

OClOl 

23* 

C 


IVO - INDICATOR FOR VDE 

300002 

DOlOl 

2*i* 

c 


RE - POWER PE0UES7, KU 

000002 

OOiOl 

25* 

c 


L02 - ELECTRICAL LOAD OEHAND, KU 

DC0CQ2 

DDlOl 

26* 

c 


SRE - SUM OF ENERGY DESTREO, KWH 

GD0D02 

CDICI 

27* 

c 


SDE - SUM OF ENERGY DELIVERED, KWH 

C0G002 

DCiOl 

26* 

c 


PC - CUMULATIVE PERCENT OE LOAD DELIVERED, - 

000002 

:'oiDi 

29* 

c 


TTMO- last TIME A RANDOM SAMPLE WAS USED, HR 

000002 

CO 101 

30* 

c 


XN - COLORED NOISE SAMPLE, KU 

000002 

00101 

3 

c 



COCO 02 

roioi 

32* 

c 


INPUTS 

000002 

CClOl 

33* 

c 


TO - TIME OF DAY, HR 

C00CC2 

OOIOI 

3<i* 

c 


DU - DAY OF UECK 11-7) 

CD CCD 2 

eoiDi 

35* 

c 


UY - UEEK OF YEAR 1 1-52) 

C0COO2 

coioi 

36* 

c 


XHC - N0RMAL12ING CONSTANT, - 

0C00D2 

00101 

37* 

c 


CT - CORRELATION TIME OF RANDOM NOISE, HR 

Q0CCQ2 

0C1D1 

38* 

c 


XMN - MEAN OF RANDOM NOISE, KU 

Co 000 2 

00101 

39* 

c 


STD - standard DEVIATION oF RANDOM NOISE, KU 

CCDD02 

00101 

MO* 

c 


VE - VALUE OF ELECTRICAL ENERGY, S/KUH 

000002 

COIQl 

Ml* 

c 


LOl - electrical load data FILE INPUT, XU 

000002 

COlOl 

M2* 

c 


PMAX- MAX. INPUT POJeR DELIVERABLE, KU 

000002 

GOlOl 

M3* 

c 


PO - POUER DELIVERED TO LOAD, KU 

C00DD2 

00101 

MM* 

c 


EF - INPUT POUER EFFICIENCY 

CC0CD2 

CClOl 

MS* 

c 



00CCD2 

00103 

MC* 



DIMENSION PDIl) ,PU( 1 } .RYU > 

000032 

ODlOit 

M7* 



REAL L01.L02 

C00DD2 

00105 

M8« 



COMMON /CIMPL/ IMPL /CSIMUL/ DUM 1 6 ) ,T IN C, TmA X/CTI ME/TIME 0D0D02 

00106 

M 9* 



COMMON /C05T/CC,CM,CO .CV.COE, CRE 

000002 

00 10 7 

50* 



DATA AX/. 99999/ 

CDD002 

00107 

51* 

c 



000002 

00107 

52* 

c 


INITIALIZATION 

000002 

C0107 

5 3* 

c 



C00002 

00111 

5M* 



NO = P0I2) 

C0C002 

00112 

55* 



NW = PU(2) 

00 GO 11 

00113 

56* 



NY - PYI2) 

000020 

0D11«J 

57* 



IFf IMPL.GT.O) GO TO 10 

OOCQ27 

C0116 

56* 



IFTXKN.EO. .99999)XMNrC. 

000032 

00120 

59* 



THAXl = TMAX*. 99999 

000036 

00121 

6C* 



TlHOr-l . 

OODDMl 

00122 

61* 



SRE =D.C 

CDDQM3 

00123 

62* 



SOE =0.0 

GOOCMM 

C012<< 

63* 



PC =0.3 

DQC045 

C0125 

6M* 



CALL RNCXN, AX,STD,XHN) 

C0GDM6 

00126 

6 !* 



IFIPMAX.EO. .99999) PMAX = l.EIO 

OOGD5M 

CC126 

66* 

c 



CD 005 M 

C0126 

6 7* 

c 


CHECK FOR data FILE INPUT 

OOCOSM 

00126 

68* 

c 



C0C05M 

00130 

69* 


10 

IFILQl.EQ. .99999) GO TO 100 

000062 

00132 

TO' 



L02 = LOl 

C3C06M 

00133 

Tl-- 



GO TO 150 

000066 

0D133 

72>- 

c 



GGC066 

00133 

73* 

c 


GENERATE COLORED NOISE SAMPLE XN 

00CC66 

00133 

7M* 

c 



000066 

0013H 

75* 


lOD 

IF( TIHO.EO.TIHE) GO 70 150 

CCCG70 

0C136 

76* 



A=0 . 

OCCC72 


BCS 40180 


0013 7 

77* 


IFtCT.OT.G.J A = EXP t-TlKC/CTj 

CD0073 

00X*(X 

7B* 


urn S %HH * tl . -A » 

OOCfllfc 

aoi<«2 

79i 


USD = STD*SORTU.-li*A) 

C00122 

com? 

EC* 


CALL BHtV,AX,USD,UMU) 

COC133 

ZQIHH 

SI*. 


XN = XN*A -» W 

OOOlAl 

cm>iM 

62 » 

C 

COMPUTE electhical load dcmamo 

0CO181 


e3» 

c 


CCCIH 1 

2011!^ 

BH * 


OLD = TBLUHTO.PDllJ.POtHO^D.lt-NDV 

COCI*S 

CCUb 

&B* 


ULD = TgLUl(OW,PW(‘f),PUOIU*«il,l,-KU) 

00016*1 

2om7 

86 • 


ttO = TBLUl TVY,PT t<n ,PY1HT*‘U ,1 ,-MT ) 

000203 

•XOl SD 

87* 


LP2 = {OLO-*XH)*ULO * TLO*XHC 

0CG222 

:cn5i 

82*' 


TinCf = TIME 

60G23C 

1-0152 

87* 


150 RE - FMlHl IPMAX.L02 )/FE 

L00233 

3C152 

90 * 

c 

PERrORMANCE STATISTICS 

C0C233 

CO 152 

9 1* 

c 


000233 

20153 

92* 


irnMPL.LE.ii returm 

0002*11 

rpiss 

93* 


IFtZVn.*JE, Cl 09 D = PO*VE 

000250 

£0157 

9** 


SPE = SRE ♦ L02*0.5*T1NC 

0C0261 

tClbO 

95 * 


5DC = SDC ♦ PO*0.5*TlirC 

D0C266 

COlfel 

96* 


inSRC.GT .D. 1 PC = 100.*S0E/SRE 

C0DZ71 

COifel 

97* 

c 


000271 

OC1&3 

98* 


irniMC4.LT.TMAXl 1 RETURN 

DOL3DO 

C©165 

99* 


CV = CV * VDE 

G0D307 

CGifcfe 

100* 


CCE= COE * SOE- P0*0.5*T1MC 

C-D0312 

C01&7 

101* 


CRL= CHE ♦ SRE- LO2*0»5*TIWC 

000316 

CD17J 

102* 


RETURN 

CCC325 

CD 171 

103* 


END 

C0C*«7C 






CO 

o 

CO 


o 

}-» 

CO 

o 

SURROUTiNt K« ENTRY POINT 000012 


STORAGE USED CODEIll 000016; DATAtOl 000004; BtANK COMMON (21 QOOOOO 


EXTERNAL REFERENCES (BLOCK, NAHEl 
0003 NERR3S 


STORAGE ASSIGNMENT (BLOCK, TYPE, RELATIVE LOCATION, NAHEl 
0000 000000 INJPS 


CO 100 

1* 

CMA 






OOOQQO 

COlOl 

2* 


subroutine MA(F0,FlN.Ct,C2l 




000000 

00101 

3* 

C 






COCOQO 

50101 

4« 

c 

PURPOSE - 

TO SIMULATE THE EQUATION 

OUTPUTrci*INPUT ♦ 

C2 


OOOCOO 

00101 

S* 

c 






COOOOO 

to 10 1 

fc« 

c 






000000 

EOlOl 

?♦ 

c 

METHOD - 

SEE COOING 




DDOQOO 

COlQl 

e* 

c 






000000 

QClOl 

9* 

c 






5Q00QG 

SO 101 

10* 

c 

written By 

- ADAM LLOYO 

LATEST REVISION 

NOV 75 


C00C5D 

COlOl 

11* 

c 






DDCOOD 

-JOlOl 

12* 

c 






tOQOOO 

50 101 

1J« 

c 

limitations - NONE 




ODCOCO 

00 101 

14* 

c 






OOCOOO 

50151 

15* 

c 






COCOCC 

COlOl 

16* 

c 

INPUT/OUTPUT LIST 




CODDCD 

c-oioi 

17* 

c 






OODDCO 

30101 

16* 

c 

FO 

OUTPUT VARIABLE 

ANY 

OUTPUT 

VAR 

C3O0C0 

00101 

1^* 

c 

riN 

INPUT VARIABLE 

ANY 

INPUT 

VAR 

CODOCQ 

00101 

20* 

c 

Cl 

CONSTANT MULTIPLIER 

— 

INPUT 

PARAN 

COOOOO 

OClOl 

21* 

c 

C2 

CONSTANT ADDITION 

— 

INPUT 

PARAM 

COOOOO 

00103 

22* 


rO=Cl*FIN ♦ C2 




COCuCG 

001C4 

23* 


return 





CCC003 

G01C5 

24* 


END 





C00015 




7.24 MULTIPLY, DIVIDE, AND ADD 


FNA 

F(Z^-C1*FNA^ C2^NB + 

C3tfFNA*FNB + C4*FNA/FNB + C5 

1 

1 . 

FNB ! 

Cl 

C2 

C3 

C4 

CU 

— 



I.DP.^1^ 



Parameter/Port 


Description 

FNA 


nput quantity 

FNB 


nput quantity 

Cl 


nput quantity 

C2 


nput quantity 

C3 


nput quantity 

C4 


nput quantity 

C5 


nput quant i ty - 

QMtP-M.t§ 



Variable/Port 



F0 

Output quantity 



Cal cul at ion Sequence 

F0 = Cl^TFNA+C2»FNB+C3^tfNA^NB+C4^<fNA/FNB+C5 


BCS 40180-2 



CO 

o 

LO 


4a- 

O 

(-< 

CD 

O 

t 

ro 


SUBROUTINE HB 


CMTRy POINT ooaosi 


storage; used CODEITT 00006%; DATACOJ D00D23; BLANK C0NH0MT2J DDODOO 

COBHON PL0CK5 

0003 ERNESS 000002 

OQOA C;i0 000003 


EXTERNAL REFERENCES (BLOCK, NAME I 

0005 NNDUS 

0006 M102S 

floor KEBR31 


STORAGE assignment (BLOCK, TYPE, RELATIVE LOCATION, HAHEl 




0001 

000030 

ICL 

OCDO DOOOOO 20F 0001 0000*2 3DL 

OCOA 

000002 lOlAG 

0 003 DO CO 01 

0 003 

00 0000 

IFATal ODDO 000015 INJPS 000* 000000 ireao 

OOOA I 

000001 IWRlTE 


00100 

!• 

CMB 





DC GOOD 

0,0X01 

2* 


SUBROUTINE NB (FO ,FMA,rKB ,Cl ,C2 ,C3 ,C» iCS » 




CDOOOD 

jOiOl 

3* 

C 





CODCOG 

iOOlOI 

«♦ 

c 

PURPOSE - TO SIMULATE THE EOUATIOH Y=C1*XA*C2*XB*C3*XA*XB*C*(*XA/XE*C5 


O30CCC 

CO 101 


c 





03000 C 

00101 

6* 

c 





0 ii/ '0 

CDIGI 

7» , 

c 

written by ~ GEORGE DULEBA LATEST REVISION 

MAY 76 


^ (W 

0 131 

8»- 

c 





P* rt r- (T' 

M v’ 1*".. ELi w 

SClOl 

9» 

c 





0OCCO0 

'*0101 

lOY 

c 

LIMITATIOKS “ IF f»B=0 DURIHS DIVISION, FNB IS SET 

TO E-20. 



CC0CSG 

£0101 

11* 

c 

DIABHOSTIC MESSAGE IS GIVEN. 




CC0DC3 

eoioi 

12* 

c 





£00030 

aoioi 

13* 

c 





C00OOG 

CS131 

IN* 

c 

IN PUT/ OUT PUT LIST 




CO 0000 

£0101 

15* 

c 





3D 003 C 

£0101 

16* 

c 

FO OUTPUT VARIABLE 

ANY 

OUTPUT 

VAR 

rococo 

€0101 

17* 

c 

FNA INPUT VARIABLE A 

ANY 

INPUT 

VAR 

cocron 

00131 

1 E* 

c 

FNB INPUT VAPIABLE B 

ANY 

Iff PUT 

VA 

COCCCG 

€0101 

19* 

c 

Cl multiplier X 

any 

INPUT 

VAR 

CO0COC 

€0131 

2£* 

c 

C2 MULTIPLIER 2 

AMY 

INPUT 

VAR 

cocroG 

eoisi 

21* 

c 

C3 HOLTIPLIFR 3 

ANY 

INPUT 

VAR 

C0CE0G 

OCIDl 

22* 

c 

C4 KULTIPLICR 9 

ANY 

INPUT 

VAR 

CGCCCS 

■~oiOi 

.23* .. 

c 

c5 AonirivE variable 

any 

INPUT 

VAR 

COCfCG 

£0101 

2N* 

c 





icrcGC 

LSIDl 

25* 

c 





£20000 

00 10 3 

26* 


COMM OM/E S ME SS /I F A T A L , TERR 




CC0CCC 

OOlfltf 

27* 


COMM ON/C 1 0/1 REA 0 , 1 VR 1 7 E , 1 01 AG 




cccooc 


BCS 40180-2 


:oio5 

2«* 


ro= ci*rNA ♦ c2*rNB * c3*fna*fnb ♦ cs 

OOCOOQ 

tOlOb 

29* 


JFIC««.Ca. 0.999991 GO TO 30 

0C0C12 

aoiio 

3C» 


iriFNB.EO.O.) 60 to 10 

DOt-016 

CQ112 

31* 


Ft)- FO ♦ C«l*FN*/FNe 

000C17 

00113 

32* 


RTTURN 

0CC029 

ocn^i 

33* 

10 

WR1TCC1MRITE,201 

00GC3C 

00116 

3** 

20 

FORHAtt/ ,3QX. 53HUARNTN6- DIVISOR IN MB CQUALS 0.. HAS BEEN SET=I. 

00CC3V 

00116 

35* 


2E-201 

C0Q03*l 

DO nr 

36* 


FO- FO ♦ CV*FNA*t.E«20 

000039 

00120 

37* 

30 

RETURN 

C00092 

JC121 

38* 


End 

i.DCC63 


CO 


MC 

7.25 ANULTIPLY AND ADD 

FIN f “ 

Fia ^ 

FIP _ 


C2 

C3 

C4 


iimtS 

Parameter/Port 
FIN 
FI0 
FIP 
Cl 
C2 
C3 
C4 

Outputs 
Var lab I e/Port 
F0 

Calculation Sequence 

F0 = CI^IN + C2«Fl0 + CS'MflP + C4 


Description 
Input quantity 
Input quantity 
Input quantity 
Input quantity 
Input quantity 
Input quantity 
Input quant i ty 


Output quant I ty 


F0=C1*FIN + + C3^^IP + C4 


BCS 40180-2 


235 
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g 


subroutine MC ENTRT point 0C0020 

STORUGE USED CODE (1 1 Q0002<4; DATAtOl 00000^? BL*NK COMHONIZJ OOODOO 
CXTEPNAL references ( block t NAME I 

0003 KERR3S 

STORAGE ASSIGNMENT IBLOCK, TYPE, RELATIVE tOCATIOM, NAME! 

Qoqo DCOCOQ INJPl 


cm 00 

!♦ 

CMC 






OODODO 

CDlOl 

2< 


SUBROUTINE HC (F 0 ,E IN , FIO ,FIP, C 1 ,C2 

.C3.C41 



OODODQ 

Doim 

3* 

C 






DOOOOO 

DQIOL 


c 

PURPOSE 

- TO simulate the equation 

FO=C1*F1M*C2*FIO*C3*FIP*C4 


CODODC 

•JCIQI 

5* 

c 






OOOOOQ 

OCIQI 

6 * 

c 






CO DODO 

CD 101 

1 * 

c 

METHOD 

- SEE CODING 




000000 

GDlOl 

8 ♦ 

c 






00 ODD G 

DDlOl 

9* 

c 






GOCQDO 

DOlOl 

1' 1» 

c 

WRITTEN 

BT - ADAM LLOYD 

latest revision 

NOV 75 


CODDOD 

ODIOI 

11* 

c 






CODODO 

OQIOI 

12 * 

c 






CCCCQO 

'JO 101 

12 * 

c 

LIMITATIONS - NONE 




COOOOO 

cm 01 

19* 

c 






GCOOOQ 

OGlOl 

15* 

c 






CDCOOO 

OClOl 

16 * 

c 

INPUT/Ou 

•PUT LIST 




COODDO 

00131 

17 * 

c 






COCOOO 

CO 101 

IF* 

c 

FO 

OUTPUT VARIABLE 

ANY 

OUTPUT 

VAR 

CGCCCO 

COlOl 

19* 

c 

FIN 

INPUT VARIABLE 

ANY 

INPUT 

VAR 

CCOOOO 

POIDI 

23 * 

c 

Flo 

INPUT variable 

ANY 

INPUT 

VAR 

occcoo 

0 0X01 

Zl* 

c 

TIP 

INPUT VARIABLE 

ANY 

INPUT 

VAR 

OODODC 

00X01 

22 * 

c 

Cl 

CONSTANT MULTIPLIER 

— 

INPUT 

P ARAM 

GOOOOC 

00101 

23* 

c 

C2 

CONSTANT MULTIPLIER 

— 

INPUT 

PARAM 

COOOOO 

GOlQl 

24* 

c 

C3 

CONSTANT multiplier 

— 

INPUT 

PARAM 

CDCOOO 

COlOl 

25* 

• c 

C4 

CONSTANT ADDITION 

— 

INPUT 

PARAM 

000000 

00103 

26* 


F0 = Cl*FIN«-C2*F10*C3*riP-*C4 




DOOOOO 

00104 

27* 


RETURN 





00001 1 

03105 

2E* 


END 





GO 002 3 



7.26 AC INDUCTION MOTOR 



POWER (PI) 

INPUT 

ROTOR SPEED 



POWER (P2) 

OUTPUT EFFIGIENCY (EF2) 
OLfTPUT MAX. POWER (MP2) 


The induction ntotor produces mechanical power and torqu« proportional to 
slip speed, l.e. power and torque approach zero as the rotor approaches syn- 
chronous speed. 1\vo power losses are modeled: a constant multiplicative term 
due to resistive heating and an additive term due to mechanical friction. 
Default parameters are based on a conventional squirrel-cage induction motor/ 
generator maGhtne* 

Basic Equations 

P2 - EE*Pl + DA*RS\C 

where 

Pl,P2 - input and output power 
EE electrical efficiency 
DA Si mechanical damping 
C != conversion constant 


BCS 4018Q-2 



inp.ut.s 

Parameter/Port 

5.§g.c.r-l£.tJ.Q,n 

Units 

P 1 

Input power 

kw 

DA 

Mechanical damping (D = 0) 

jou 1 e-sec 

RS 

Rotor speed 

rpm 

RSY 

Synchronous rotor speed (D -1800) 

rpm 

SR 

Stator resistance ID = 8/RAPl 

ohms 

VO 

Rated input voltage (D = 400) 

vol ts 

RAP 

Rated input power 

kw 

RAS 

Rated power slip ID = 0.05) 

- 

EF 1 

Input product efficiency 

— 

MP 1 

8 

Maximum input power (D = 1x10 ) 

kw 

CC 

Capi tal cost/year 

$ 

CM 

Maintenance cost/year 

$ 

Variable/Port- 
P 2 

Output mechanical power 

kw 

EE 

Electrical efficiency 

- 

TO 

Mechanical torque 

ft- lb 

PL 

Power 1 OSS 

kw 

EF 2 

Output product efficiency 

- 

MP 2 

Output maximum power 

kw 

Slat i sties 

MT 

Maximum torque 

ft-lb 

MPNi 

Maximum output power/ rated power 

- 

SP 

Output energy sum 

kwh 


D - Defau 1 t va1 ues aupp lied. 
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Calculation Sequence 


MO 


1) Compute electrical efficiency (first pass only) 

i = RAP*1(X)0/V0 
RAT 

EE = 1 - SR* I f .^/RAPJf-lOOO 
RAT 

2) Diagnostics 

PI >RAP O DIAGNOSTIC 

SLIP = 1 - RS/RSY > RAS DIAGNOSTIC 

3) Output power and power loss 

(1) = RS*(2 7T/60) 

P2 = EE*P1 - DA* (1)^/1000 
PL = PI - P2 

4) I f P2 > 0 go to 5) 

PI > 0 C> DIAGNOSTIC 
EF2 = EFl, MP2 = MIN(MPl,RAP) 

Go to 7) 

5) Compute torque 

T2 = P2J<1000/ U) *k 
k =1.3558 joules/ft-lb 

BCS 40180-2 239 


Calculati on Sequence Conf. 

6) Efficiency and maximum output power 



EF2 = EFl-«-{P2/Pl) 

MP2 = M1N(MP1,RAP)^HP2/P1) 

7) Compute Statistics and Costs 


240 
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BCS 40180-2 24-1 


SUBROUTINE MO ENTRY POINT 000312 


STORAGE USED CODEH) OOORSiC DATAtOJ 000102; BLANK C0MM0NT2) OOOCOO 

COMMON BLOCKS 

0003 CIMPL 000002 
OOCI CIlME 000001 

0005 rSTMUL COOOlO 

0006 COST 000010 


EXTERNAL RETERENCES (BLOCK, NAME) 
0007 NUOUt 

acio N 102 S 

0011 NEPR3* 


STORAGE ISSIGNnENT (BLOCK, TYPE, RELATIVE LOCATION, NAHEI 

000) P0CC62 1001 0001 000106 2C0L 0000 00000*1 208F 0001 000135 300L OCOO 000017 308E 

3001 000213 «»ODL 0000 000032 h 08F 0001 000201 A09L 0001 000235 500L QC06 R COOOOO CCl 

0006 R OCCCQl CMl 0006 000002 COP 3005 R QQOODO OUM 0003 I OOOCOl ICNT OC03 1 000000 IHPL 

0000 000C66 INJPS DODO R 000003 OMEGA 0000 R 000002 SLIP 0006 000004 TOC 000*1 R CUOCOO TIME 

ODCO R CODOOl TIHC 0006 ODOODS TLO 0005 R 00D007 TMAX 0000 R DOOOQO THAXl QC06 GD0007 UTD 

0006 DC0CD6 UTW 0006 000003 VDE 


00100 

1 * 

CMO 


COlOl 

2* 


SUBROUTINE MO tP 2 , EE ,T 0 , PL ,EF2 , MP2 , HT , MPN , SP , 

00101 

3* 


1 Pi,0A,RS,RSY,SR -V0,RAP,RAS,EF1 ,MP1,CC,CM> 

00101 

*<4 

c 


COICI 

5* 

c 

PURPOSE AC induction MOTOR MODEL 

00101 

6* 

c 


00101 

7* 

c 

METHOD mechanical POUER AND TORQUE CALCULATED 

OClOl 

e* 

c 

FROM INPUT AC POWER AND ROTOR SPEED 

00101 

9* 

c 


00101 

10* 

c 

WRITTEN BY Y.K.CHAN VERSION 1, JUNE 13, 197T 

00101 

11* 

c 


OOlOl 

12* 

c 

CALL SEOUENCE 

00131 

13* 

c 

OUTPUTS 

CDlOl 

m* 

c 

P2 -OUTPUT MECHANICAL POWER, KU 

LCIDI 

15* 

c 

EE -ELECTRICAL EFFICIENCY 

COlOl 

16* 

c 

TO -MECHANICAL TORQUE, FT-LB 

COIDI 

17* 

c 

PL -POUfR LOSS.KW 

COIDI 

IB* 

c 

EF2 -OUTPUT POUER EFFICIENCY 

OOlOl 

19* 

c 

MP2 -OUTPUT MAXIMUM POWER, KU 

00101 

2C* 

c 

STATISTICS 

COlOl 

21* 

c 

MT -MAXIMUM TOROUF, FT-LB 


OOQOOD 
ODOODO 
000000 
000000 
00 0000 
CDCOOD 
COOOOO 
CODOOC 
COOOOO 
COOOOO 
COOOOO 
COCDOD 
CDCDOC 

cocnoo 

oocooo 

OOCDOO 

COCOOD 

COCDOD 

CODCDO 

COCODC 

CCCOOO 
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ODIOI 

22* 

C 


MPN -MAXIMUM OUTPUT POMER/RATEO POWER 

000000 

noioi 

23* 

C 


SP-OUIPUT POWER SUM 

cooooo 

COlQl 

24* 

c 


INPUTS 

CGOOOQ 

DOIDI 

25* 

c 


PI -INPUT POWER, KW 

ODCDOa 

00101 

2£* 

c 


DA -mechanical damping, joule-sec 

CODDOO 

00101 

27* 

c 


RS -ROTOR SPEEP,RPM 

dococo 

roioi 

28* 

c 


RSY -SYNCHRONOUS ROTOR SPEED, RPM 

ODOGOO 

COlCl 

24* 

c 


SR -STATOR RESISTANCE , OHMS 

COCCOC 

jOIOI 

3C* 

c 


VO -RATED INPUT VOLT AGE , VOLTS 

ODDOCO 

QOlDl 

31* 

c 


RAP -hated INPUT POWER, KU 

COOOOO 

OCIQI 

32* 

c 


RAS -RATED PWER SLIP 

uOOOOO 

00101 

33* 

c 


CFi -INPUT product efficiency 

OOOCOO 

acioi 

34* 

c 


MPl -MAXIMUM INPUT POWE.KW 

COCGOO 

00101 

35* 

c 


CC -CAPITAL C05T/YEAR,5 

doddod 

DOlul 

36* 

c 


CM -MAINTENANCE COST/YEAR,* 

000000 

ooiai 

37* 

c 



OODOOC 

U0103 

38* 



COMMON /CIMPL/lMPL,rCHT/CTlHE/TIME/CSIMUL/OOn»7l,TMAX 

COCGOO 

00103 

39* 



X /C0ST/CC1,CH1,C0P,VDE,TDE,TL0,UTV,UTD 

QCCOOO 

ODiaq 

40* 



REAL HP2,MT,MPN,MP1 

OOGOOO 

OOlOM 

41* 

c 



OOOOQC 

POIOS 

4 2* 



IFHHPL.GT.OIGO TO 100 

OCOCOO 

Doicr 

43* 



1FI0A,E0..99999 »OA=0. 

00CC02 

00 11 1 

44* 



IF IRSY.EQ.. 99999 IRSY= 1800. 

000006 

00113 

45* 



IFCSR.E0..99999 ISP=B./RAP 

000013 

DO 115 

46* 



IFrV0.E0..99999 >VOr400. 

000d2i 

G0117 

47* 



IFIHPl.EO. .99999»MPl=l ,E8 

D0C026 

GO 121 

4B* 



IF (RAS.EQ. .99999 IRAS=.05 

C0C033 

GC123 

49* 



TKAXl^TMAX*. 99999 

000040 

C012M 

50* 



MT=G. 

C0C043 

00125 

51* 



MPfi=0. 

00C044 

00126 

52* 



SP=0. 

C0C045 

CC127 

5 3* 



T1NC=0UMI7>*.5 

000046 

CO 12 7 

54* 

c 



000046 

0012 7 

5 5* 

c 


COMPUTE ELECTRICAL EFFICIENCY 

CCC046 

CC127 

56* 

c 



00C046 

00130 

57* 



EE=l.-SR*RAP*10CO./tVO*VOI 

00C051 

C0131 

58* 


ICO 

IFIPI.LE.RAPIGO TO 200 

0DQ062 

00133 

59* 



1F( IKPL.EQ.2)WRITEI6,20B)P1,R AP 

00CC65 

ooiqo 

60* 


2C8 

EORMATIIHO.IBH MOTOR INPUT P0WER,F12. 3. 23H .GT.RATED INPUT POUER , 

CO C 07 7 

ooiqo 

61* 



1 F12.3} 

C0D077 

00141 

62* 



lFHMPL.E0.211CNTrlCNT + l 

000077 

00143 

63* 


200 

SLIP=1.-CRS/R5Y» 

000106 

00144 

64* 



IFISLIP.LE.PASIGO TO 300 

LOOlli 

0C146 

65* 



IF IIMPL. Ed. 21 WRITE 16, 3081 SLIP ,RAS 

000114 

CO 153 

66* 


3CB 

fORMATIlHO.llH MOTOR SL IP ,F 12 . 3 ,2 5H EXCEEDS RATED POWER SLIP, 

C0D126 

CG153 

67* 



1 FI 2. 31 

D0C126 

GC154 

6B* 



IF! lMPL.E0.2UCNTriCNT*l 

CC0126 

00154 

69* 

c 



00C126 

GC154 

70* 

c 


COMPUTE POWER and POWER LOSS 

000126 

00154 

71* 

c 



00C126 

C0156 

72* 


3 00 

OMEEArRS* 3. 14159/30. 

000135 

00157 

73* 



P2=EE*P1-DA*OMEGA*OHEGA/1000. 

C00140 

C.D160 

74* 



PL=P1-P2 

000147 

CC161 

75* 



T0=0. 

CGClSl 

0C162 

76* 



IF<P2 .01 .0. IGO TO 400 

000152 

00154 

77* 



IFtPl .LE.O, IGO To 409 

00C1S5 

00156 

78* 



IFnHPL.EQ.2 )URITE<6,4 08»SR,D A 

C0016C 
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79* 


4 08 

FOR«*TflHD, 19H ST»TOR RESISTANCE ,F12.3.1ZH OR DAMPING t 

000172 

D0173 

ao* 


XF12.3t20H TOO HIGH FOR MOTOR » 

C00172 

00i7<l 

81* 



1FI3HPC.E0.21ICNT-ICNT*! 

00C172 

D017‘* 

BZ* 

C 



DO 017 2 

DG174 

8 3* 

C 


efficiency and maxihum output power 

000172 

CCi7q 

84 * 

C 



CQC172 

00176 

85* 


4 09 

CONTINUE 

000201 

CQ177 

86* 



P2-0. 

00020 1 

CC2Q0 

67* 



EF2=EF1 

00C201 

0C201 

ee* 



HP2rAFlNUHPl ,RAP) 

000?03 

C02Q2 

B9* 



GO TO SCO 

00021 1 

DG2D3 

90* 


4 00 

Cr2=EFl*P2/Pl 

C00213 

OPZOf 

91* 



Hr2=AHINUMPl ,RAP)*P2/P1 

000216 

00205 

92* 



IFIRS.NE.C. 1T0=P2*737.670MEGA 

C0C226 

C02Q5 

93* 

C 



000226 

00237 

94* 


5 00 

iftihpl.le.dreturn 

000235 

DO 207 

9S* 

C 



DG023S 

CG207 

96* 

C 


•STATISTICS 

0CO23S 

00207 

97* 

c 



CDCZ35 

00211 

98* 



MT=AHAXUT0»MT) 

00024 3 

00212 

99* 



MPN = AMAXHP2/RAP,MPN1 

CCC2S 1 

CD213 

100* 



SP=SP»P2*T1NC 

0CC260 

00213 

101* 

c 



000260 

00214 

102* 



IFTTIME.LT.TMAXIIRETUBH 

CD0264 

0 0216 

103* 



CClrCCl*CC 

CQC273 

00217 

104* 



CHI-CHI+CM 

000276 

00217 

105* 

c 



000276 

00220 

106* 



return 

000301 

00221 

107* 



END 

000433 


[' 

I' 

i 

I 


i" 

(: 


•i. 





7.27 PCWER ACCUMULATOR 




MAX. OUTPUT POWER 

POWER REQUESTS 
(RET ,RE2.RE3,RE4) 

POWER OUTPUT (PO) 


(MPO) 


This component sums power from 
to each port's source of power 
exceeds the maximum power that 
ty, then the remaining load is 
and then allocated to the next 
cuss ion.) 


four input ports and allocates power requests 
generation. If an input power request (load) 
can be delivered by the port of highest priori- 
allocated according to weight within priority, 
priority ports. (See 1.2.3 for further dis- 
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■LqpmJ-s^ 

Paramet'er/Port Description Uni ts 


RE 

0 

Load request 

kw 

EF 

1,2, 3, 4 

Input efficiency from port i 

- 

P 

1,2,3, 4 

Input power from port 1 (default = 0.) 

kw 

PS 

1,2,3, 4 

Priority sequence (defaul t=l,2,3,4) 

- 

F 

1, 2,3,4 

Al location weight (for equal priorities) 

- 

MP 

1,2,3, 4 

p 

Aliaximum power (default = 1x10 ) 

kw 


fputs 



Var i ab 1 e/Por t 



M\P 

0 

Maximum de 1 i verab 1 e power (ZMP(i) ) 

kw 

RE 

1,2, 3, 4 

Power request for port i 

kw 

P 

0 

Power output 

kw 

SP 


Supplemental power request to meet load 

(Power deficit) = RE_ - IMP. 

0 1 

kw 


Statistics 



SRE 

Sum of energy requested 

kwh 

PC 1,2,3, 4 

Percent of cumulative load request 

% 


delivered by port i 


1 • 

No capital costs assigned since this is an allocation component, not a 
physi cal device. 
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CALCULATION LOGIC 
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PA FAIR SHARE ALLOCATION 



EXIT 

BCS 40180-2 








SUBROUTlNr f>« ENTRY POINT 00Q520 

STORAGE USED COOEIU 000752; DATAIOl 000110; BLANK C0nN0NI2l 000000 

CONNON BLOCKS 

0003 CIHPL 030D01 

OOOA CSTKUL 000010 

external RCEERENCES IBLOCKt NAHEi 
ones NCRR3* 


9 S 

hoQ 

Si 

9^ 

^ O 

•-■<1 O ' 


STORAGE ASSIGNMENT IBLOCK, TYPE, RELATIVE LOCATION, NANO 


QOCl 


000376 

lOOCL 

0001 


OOOAOl 

20Q0L 

0001 


000235 

234G 

0001 


000244 

241G 

OCOl 


000264 

254G 

30C1 


00 030 6 

273G 

0001 


00032S 

305G 

0001 


000363 

325G 

0001 


000104 

40L 

OCOl 


000301 

400L 

□001 


□ 00<iI7 

50 OL 

0001 


□00301 

600L 

0001 


000316 

70 CL 

0001 


□□□161 

SOL 

0001 


000353 

600L 

OOCl 


000372 

900L 

000 «• 


ODOODQ 

OKK 

0000 

R 

000030 

FR 

0000 

R 

000042 

FRU 

OOCO 

I 

000037 

I 

0003 

I 

OCCOOO 

IMPL 

OOCQ 


000055 

INJPS 

0000 

I 

D0C041 

K 

0000 

R 

□00034 

LL 

0000 

n 

000035 

lOLO 

OOCO 

R 

3QCC1R 

HP 

OCOD 

R 

OOOOOA 

PR 

0000 

R 

000003 

R 

0000 

R 

000024 

SHP 

□ 000 

R 

000044 

SRI 

0000 

R 

C00CH3 

SRO 

0000 

R 

000020 

SU 

0004 

R 

000006 

TINC 

0000 

R 

000036 

TlNCl 

0C04 


C00007 

TNAX 

□000 

R 

ooooic 

U 

OCOD 

R 

ocoo<<a 

XI 














00100 

1* 

CPA 





000000 

CDlOl 

2 * 


SUBROUTINE PAfNPO, 




cocooc 

DOlOl 

3* 


1 Rl. R2, R3, R4, 




OOQOOO 

00101 

4« 


2 POtSP, 




□00000 

00101 

54 


3 SR,PCI,PC2,PC3,PC4, 




ocoooc 

COlOl 

6* 


4 RO, 




OOGCOO 

COlOl 

74 


4 EFl, EF2, EF3, EF4, 




CCODOO 

:^oioi 

84 


5 PI, P2, P3, P4, 




COCDOO 

COlOl 

9 * 


6 PRl, PR2, PR3, PR4, 




COCCOO 

00101 

104 


7 Ul, W2, U3. U4, 




coccoc 

GOlOl 

114 


6 HPl, HP2, MP3, MP4I 




CCGOOO 

^0101 

124 

C 





COGOQC 

COlOl 

134 

c 

PURPOSE. model POWER ACCUMULATOR 


coccoc 

00101 

144 

C 





CDCOQO 

COlOl 

154 

C 

METHOD. PRIMARY REOUEST ALLOCATION 

RESULTING FROM PRIORITY 

□coooo 

CCiOl 

164 

c 

ASSIGNMENTS. SECONDARY REOUEST 

allocation RESULTING 

□ocooo 

CDIOI 

174 

c 

FROM WEIGHT ASSIGNMENTS. 




□00000 

LOlOl 

184 

c 

THAT IS, REQUESTS ARE ALLOCATED 

ACCORDING TO 

ocoooo 

CDlOl 

194 

C 

4 PORT PRIORITY IhIGHEST 

PRIOT ITY 

= 11 

000000 

00101 

2C4 

c 

4 PORT WEIGHTS (IN CASE 

OF EQUAL 

priorties. 1 

CoODOO 

00101 

214 

C 





DCGCOu 

CGlOl 

22 4 

c 

Formal argument deeinttion. 




OOCDQC 

COIDI 

234 

c 

Rl,..a, R4 POWER REQUESTS IN 

KU 

(OUTPUTS > 

GOOODO 




OClOl 

24 

• C 

HPO 


total maximum power 

J OUT PUT) 

COOOOO 

COIDI 

25 

• C 

SP 


SURPLUS REQUEST 

lOUTPUT) 

COOOOO 

GOlOl 

26 

• c 

PO 


total load in KW 

lOUTPUT) 

COGOOO 

CClOl 

27 

• c 

SR 


SUM OF energy requested. 

KWH lOUTPUT) 

0CC.000 

CO 101 

28 

♦ c 

PCI,, 

..,PC4 

PERCENT OF CUM LOAD DELIVERED lOUTPUT) 

IjOOCOO 

00101 

29 

♦ c 

RO 


TOTAL POWER requested, KW 

IIHPUT) 

OOGOOQ 

COlOl 

30 

• c 

PI, . . 

., P4 

INPUT POWER IN KU 

1 INPUTS) 

cccooo 

CO 1 0 1 

31 

* c 

PRl , . 

PR 4 

port PRIORITIES 

1 INPUTS) 

DCGOOO 

COlOl 

32 

* c 

Wl, .. 

W4 

PORT WEIGHTS 

lINPUTS) 

OOCOQO 

CO 101 

33 

• c 

MPl , 

..., MP4 

MAXIMUM POWERS 

IlNPUTS) 

COCCQO 

CDlOl 

34 

♦ c 

EEl. 

. . . , E F4 

EFFICIENCIES 

lINPUTS ) 

CCCOOO 


COMMON STORAGE 
COMMON/ CIMPL / TMPL 

COMMON / CSIMUU / DUH<6), TINCt TMAX 
REAL HPO ,HPl,MP2,MP3tHPM 

LOCAL variables 


RIKI IS THE POWER REQUEST AT PORT K 
REAL R<«*» 

PRJKI IS THE priority ASSIGNED TO PORT K 
REAL PRf'il 

UIKI IS THE WEIGHT ASSIGNED TO PORT K 
REAL Wl*») 

MP<K1 IS MAXIMUM POWER TO BE ALLOCATED TO PORT K 
real MPM) 

SW<I» is THE SUM OF THE WEIGHTS ASSIGNED TO PRlORITy-I PORTS 
REAL SU(<I) 

SMPCl) IS THE SUM OF THE MAXIMUM POWER AT PRIORITY-I PORTS 
REAL SHPJB) 

FRU IS "FAIR SHARE" UNIT FOR PRIORITY-1 PORTS 

FPIKl IS THE COMPUTED "FAIR SHARE" REQUEST FOR PORT K 
REAL FRtBI 

LL IS THE LOAD LEFT AT EACH POINT IN THE ITERATION 
real LL,L0LD 

IF IHPL IS 2ER0, THEN ASSIGN DEFAULT VALUES 
IF JIHPL .GT. 01 GO TO 40 
RD - 0.0 

IF (PRI .EQ. 0.999991 PRl = 1.0 

IF IPR2 .EG. 0.999991 PR2 = 2.0 

IF tPR3 .EQ. 0.99999) PR3 = 3.0 

IF IPR4 .EO. 0.99999) PP4 =4.0 
IF «HP1 .EO. 0,99999) HP) = 1.0E8 

IF (HP2 .EO. 0.99999) MP2 = 1.DE8 

IF IMP3 .EQ. 0.99999) MP3 = 1 .0E8 

IF CHP4 .EO. 0.99999) XP4 = 1.0E8 

IFfPl .EQ. .99999) PlrO.O 


CObODC 
CODOOO 
COOOOO 
COGOCO 
oCOOOO 
OOLOOO 
QOCOOC 
•20DD0C 
DOCCCO 
COOOOO 
CCOOQO 
000000 
LfC Gu 0 Q 

COGOOO 

COOOOO 

OODDDO 

CDOnOQ 

ococoo 

OOGODO 
OGOOOO 
DOCOOG 
GDCOOO 
00 GOO 0 

oacooo 

ODCC jD 

Qcoaoo 
QOOOOO 
OOC'COO 
COGGOa 
OOOQDO 
CODOCQ 
OOGDOO 
COGOOC 
OGOOOO 
CCCDQQ 
COOOOO 
C3G002 
000003 
CODOIQ 
OOOOIS 
C0C022 
CQLD27 
0D0034 
G0C04 1 
G0G046 
CDC053 
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00143 
OC1H5 
CC147 
00151 
C0152 
CO 153 
0015 ij 
G01S5 
0015b 
GDIS? 
C0157 
D01S7 
GC1S7 
OOlST 
COlbO 
00161 
00163 
00 165 
DC167 
00171 


SI* 

8 2 * 
83* 

0*t* 

65* 

06* 

87* 

88* 

69* 

9C* 

91* 

92* 

93* 

94* 

95* 

96* 

97* 

98* 

99* 

100 * 


*0 


IF(P2 
irtP3 
lFrP4 
SR=C. 
PC1=0. 
PC2=0. 
Pt3=0. 
PC4=0. 
TINC1= D 
CO(J11«OC 


.EO. 
. CQ . 
.EO. 


.999991 

.999991 

.999991 


P2=0.0 
P3= O.Q 
P4=Q.D 


.5*T1NC 


ir THE 70T*t MAjanUH POWER IS .LE. TOTAL POWER 
Rf QUESTED, THEN SUBMIT REQUESTS aT MAX-POWER , SET REQUEST 
SURPLUS EQUAL TO THE OIEFEREHCE, ANO RETURN 
PC = PI ♦ P2 ♦ P3 * P4 
ir£?Rl.LE.a.OI MPT=D. 

TF(Pft2.LE.0.01 HP2=0. 

If (PR3.LE.0.0I MP3=0. 

IFIPRR.LE.O.O) MP4=D. 

MPa = MPl ♦ MP2 * MP3 ♦ MP4 


C0C057 

CD0063 

Q0C067 

00C073 

0CGC74 

CC0G7S 

000076 

C00077 

cool 0 0 
000134 
00U04 
000104 
COD104 
0001 04 
000104 
COCllO 
C0Q114 
000120 
C00I24 
000130 


00172 

101* 


IF fMPC .GT. ROl SO TO 60 


000135 

00174 

1D2* 


R1 = HPl/EFl 


000140 

00175 

103* 


RZ - HP2/CF2 


D0G143 

CQ176 

104* 


R3 = MP3/EF3 


00014 6 

C0177 

IDS* 


R4 = MP4/FF4 


000151 

00200 

106* 


SP = PO - MPO 


CDC154 

QG20I 

10 7* 


GO TO SCO 


GOniST 

OC202 

103* 


80 CONTINUE 


GCC161 

00202 

1C9* 

C 



CDG16I 

0C232 

110* 

C 

PROCFFO WITH allocation ALGORITHM SINCE 

THE SUM or 

DO 01 61 

00202 

m* 

c 

ALL MAXIMUM POWER INPUTS EXCEEDS THE TOTAL REQUEST RO 

000161 

OC2D2 

112* 

c 



D00161 

0C2QZ 

113* 

c 

IN1T1ALI2ATI0N 


00D161 

00203 

214* 


LL - RO 


000161 

00204 

115* 


Rl = 0.0 


000162 

0 0205 

116* 


R2 - 0.0 


0DC163 

00206 

117* 


R3 = C.O 


000164 

00207 

lie* 


B4 - D.D 


booies 

00210 

119* 


SP r C.O 


000166 

00 210 

120* 

c 



000166 

D021D 

121* 

c 

IF THF TOTAL REQUEST lOR LOAD 1 IS ZERO, 

then RETURN 

C03166 

0G211 

122* 


IF IRC .IE, O.DI SO TO 500 


00 01 6 7 

0C213 

123* 


R ( 1 1 -R 1 


CGG17 1 

0C214 

124* 


Rf2J=B2 


000173 

00215 

125* 


Rt31-R3 


C0G175 

00216 

126* 


R(4l=B4 


0001 77 

00217 

127* 


PPl 1 ) = PRl 


0C0201 

0 0 220 

128* 


PR{2» = PR2 


000203 

00221 

129* 


PRl 31 = PR3 


00C705 

CC222 

130* 


PR 14 1 - PR4 


CQG207 

00223 

131* 


Will - W1 


GC021 1 

00224 

3 32* 


Wl'Cl = W2 


DDC213 

DC225 

133* 


y (3 ) :: M3 


QCC215 

GO 22 6 

134* 


UI4 J = W4 


C0G217 

00227 

135* 


MPl 11 = MPl 


000221 

00230 

136* 


MPI21 = MP2 


C0022 3 

00231 

137* 


HP 13) = MP3 


C00225 
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00232 

138* 



MPt 41 = «P4 

00232 

13 9* 

C 



00232 

140# 

c 



00232 

141* 

c 


ITCRATE ON PRIORITT I FOR 1 = 1, 2, 3, 4 

00232 

1424 

c 



CO 23 3 

1434 



00 1000 1=1,4 

002 33 

14 4* 

c 
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7.28 POWER DIVIDER 





This component allocates power to four ports plus surplus based on priority, 
port requests, and allocation weights for equal priority ports. Each port 
is assigned a priority sequence from 1 to 4, and a weighting F.>0, i=l,2,3,4 
for proportional allocation among equal priority ports. If power available 
exceeds the power requested for a set of ports of equal priority, then the 
remaining power is allocated to ports having the next highest priority. If 
power available is less than the power requested for ports of equal priority 
then power is allocated between them in proportion to their respective alloca- 
tion Weights. 

The total power request is the sum of the port requests divided by input 
efficiency. The maximum power outputs MPl, .. .MP4 are necessary for direct 
connections to a power accumulator PA. These variables may be used as maxi- 
mum power inputs to other components, although such connections are not re- 
quired. (See 1.2.3 for further discussion.) 
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PD 

Inputs ^ 


Parameter/Port 

Description 

un 

P 0 

Input power 

kw 

RE 1,2,5, 4 

Power requests of output ports 

kw 

PS 1,2,3, 4 

Priority sequence (defau 1 t = 1,2,3,4) 

- 

F 1,2,3, 4 

Allocation weight (for equal priorities) 

- 

MP 

Maximum input power {default = 1x10 ) 

kw 

EF 

Input efficiency 

- 

Outputs 



Var i ab 1 e/Port 



P 1,2,3, 4 

Output power for port i 

kw 

RE 0 

Output power request 

kw 

SP 

Surplus power 

kw 

MP 1,2, 3, 4 

Output maximum power based on MP 

kw 


1 

No capital costs assigned since this is an allocation component, not a 
physical device. 
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PD 



•FOR EACH PRIORITY I PORT. SET 
P(k) - RE(k) 


• UPDATE POlO AVAILABLE PL 


(50 TO @ 


• GO TO FAIR SHARE 
ALLOCATION Q) 
(NEXT PAGE) 


BCS 40180-2 
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000000 

cooooo 

cocooo 

CD0002- 
000003 
00DQ01 
C0DGC5 
CO 003 6 
LM013 
D0C020 
GDC025 
000032 
C0CD37 
000037 
0000 3 7 
COOGMS 
000D^5 
OOCCHb 
C00DH7 
C00G50 
OOOCSO 
OOOOSO 
00 0050 
OOOOSO 
000051 
000055 
000061 
C00065 
000071 
CC0076 
000101 
C0CI03 
COCIOS 
G0C107 
CDGlll 
OOQIl*! 
000116 
000116 
OOC116 
000116 
ODOI16 
CDCll 6 
000116 
C0C117 
000120 
000121 
000122 
CD0123 
000123 
000123 
0001 2 «» 
000126 
CDC130 
C00132 
00013 ^) 
000136 
OOOl'JO 




CZ3 

o 

try 


-p» 

o 

00203 

15 C* 



Wf3) -R3 

0001 5 2 

>-<■ 

cc 

o 

002Q*f 

15 !♦ 



R£5l, = P.5 , , 

CO 015 5 

£,0235: 

152* 



= Pfi-l 

000156 

i 

00236 

15 3* ' 



PP(21 - FJ?2 

C00150 


00,237 

155 • 



PP{3) = PP3 

cool 5 2 


0C2X3 

155 ♦ 



PPt5) ~ PB5 

C0G155 


0C21I 

15 6» 



tftn = w3 

CO CIS 6 


OC2J2 

157> 



Sif2) = tf2 

CO 0160 


902 13- 

152* 



«£3> = 1/3- 

CD0162 


OS 2 i'J 

159* 



W f 5 J = V5 

cool 6 4 


BC21H 

l&t* 

C 



COCl 65 


0021 fl 

151* 

c 



000165 


as 2 m 

152* 

c 


ITERATE ON PRIORITY I rOR I = 1, 2, 3, 5 

CCG164 


DC21JJ 

153* 

c 



000165 


J.C2I& 

1S5* 



00 loea 1 = 1 -, 5 

GOOI72 


CD21S 

155* 

c 



0001 7 2 


00229 

156* 



XI r T 

GO 0172 


00220 

157* 

c 


OPTAIR SUK OF REOUESTS FROM PORTS WITH PRIORITY I 

CDC172 


00221 

152# 



SRI 11 = 0.0 

000175 


00222 

159* 



WT^O.O 

000176 


00223 

160# 



00 300 A = I, 5 

000202 


S022& 

16 1-* 



IF JPPtAJ .EO. XU Sftfll = SRfll * RIAI 

000232 


00233 

162* 



IFIPRIKl .EO. All UT= WT* W(XJ 

CO 0207 


00232 

163* 


100 

-C05T IHUE 

CO 02 17 


CCx,J2 

165* 

c 



C0C217 


ooei** 

165* 



IflPRl .EO, *11 Fl= HiywT 

000217 


0C236 

166* 



IF! PR2.EQ. Xll F2 =W2/WT 

0DS225 


002^0 

16 7* 



TFtPB3 .EO. XI) rs- W3/WT 

000233 


0O2SI2 

166* 



IF1PP5 .EO. XI) F5= U5/WT 

000241 


0CZ«<» 

169* 



IFCPE.LE .0.0) SO TO 1000 

C00257 


GCOiJH 

17D* 

c 



000257 


CC24^ 

171* 

c 


ir WO PBIORITY-I REQUESTS EXIST, THEM PROCCrO WITH 

C0C247 


0C-2KM 

172* 

c 


THE WEXT HIGHER PRIORITY 

CD0247 


0B2\b 

173 • 



IF ISRtl) ,ro. 0.0) GO TO 1030 

COO 25 2 


COZhh 

17*t# 

c 



C90252 


0C2H 6 

175* 

c 


IF THE SUM OF ALE PRIOBITY-I REQUESTS .ST, POWER 

D0C252 


00246 

176* 

c 


available, THEM SO AROUMD 

C0G252 


00253 

177* 



IF tSRlI) .ST. PL) GO TO 400 

G0C254 


0D253 

17 1* 

c 



000254 


00.253 

179* 

c 


THE StiH OF AIL PK70BITY-1 REQUESTS .LE, POWER 

0002 54 


OC25J 

120* 

c 


AVAILAELr, SO FULFILL EACH PRIOPITY-I REQUEST 

000254 


■00.c£2 

12 3 * 



00 233 K = 1 , 5 

CD0263 


0-C25S 

1B2* 



IF IPBIK) .ro. XI) PIK) = BIX) 

CQC263 


SC-2B7 

123* 


220 

canuNUC 

COU271 


CC257 

125* 

c 



000271 


GO 257 

125* 

c 


UPOATF POWER available 

C0C271 


00261 

126* 



Pi = PL - SRtl) 

000271 


03262 

127* 



GO 70 1300 

C00274 


OCZhZ 

125* 

c 



CO 62 7 5 


coze, 3 

12 9* 


5 00 

COW TI HUE 

OOC276 


3C263 

170* 

c 



COG276 

(iJ 

2C2&3 

193 * 

c 


IHF S£« OF THE PRIORI 7Y-I REQUESTS EXCEEDS THE 

C00276 

» 

0026 3 

192* 

c 


POWER available , SO COMPUTE AMD ALLOCATE FAIR 

600276 

r^ 

C9263 

193* 

c 


SHARE TO EACH PRIORI TY-J PORT 

C0C276 


00263 

J95* 

c 



£00276 


0026^! 

195* 


600 

C own WE 

COG 27 6 


0C?5*i 

196* 

■c; 



:C0?76 
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DcZS** 

147 • 

C 


Stvc PL FOR LATER REFERENCE 

000276 

00265 

198* 



POLO = PL 

CD0276 

0CZ65 

199* 

C 



G00276 

DO 26 5 

2CC* 

C 


DETERHIME FAIR SHARE UNITS FOR ULL PRIORITY- 1 

C00276 

DQ265 

201* 

C 


PORTS FOR WHICH NO ALLOCATION HAS BEEN HADE 

CO 027 6 

00266 

202* 



SVtl) =0.0 

CC0277 

CS267 

2D 3* 



DO 700 K = 1, 4 

000303 

0C272 

204* 



IF IPIKT .NT. 0.0> GO TO 700 

CG0303 

00274 

205 • 



IF fP4(Kl .EQ. XII swill = SUfl) -* WIKI 

0Q03Q4 

CC276 

206* 


TOO 

continue 

£00314 

D03D0 

207* 



FRU = 1.0 / swill 

GC0314 

CO 303 

208* 

c 



000314 

DC 303 

20 5* 

c 


FIRST, ALLOCATE FAIR SHARE TO PORTS FOR WHICH THE 

000314 

00300 

21 &* 

c 


FAIR SHARE EXCEEDS THE REQUEST. CONSIDER ONLY PRIORITY-I 

000314 

30 303 

211* 

c 


FORTS, AND CONSIDER ONLY PORTS TO WHICH NO ALLOCATION 

0003 14 

CG3C0 

212* 

c 


HAS Yfl BEEN MADE 

000314 

00301 

213* 



DC 830 K = 1, 4 

000322 

S:G30<( 

2 14* 



IF IPIKI .NF. D.OI GO T0*800 

000322 

00335 

215* 



IF IPHIKI .NE. Xll GO TO 800 

000323 

CO 30 6 

216* 

c 



C00323 

00 306 

217* 

c 


compute fair SHARE 

000323 

CQ3Xa 

218* 



FRIKl = (UlKl • FRU) * PL 

000326 

P031Q 

219* 

c 



000326 

00310 

220* 

c 


IF FAIR SHARE EXCEEDS REQUEST , THEN FULFILL REQUEST 

000326 

CD311 

221* 



IF (FRIKl .CE. RIKII PIKl rRIK) 

000232 

CC311 

222* 

c 


- - - AND REDUCE AVAILAPLE POWER 

C00332 

100313 

223* 



IF (F91K) .GE. BtKl) PL = PL - P IK) 

000340 

CO 31 5 

224* 


8 00 

CONTINUE 

G00351 

00 315 

225* 

c 



000351 

C0316 

226* 

c 


IF PL .HE. POLO, then PL WAS REDUCED DURING THE 

C0D351 

00315 

227* 

c 


PROCESSING IN THE ”00 EDO" LOOP ABOVE. THIS CHANGES 

0DQ351 

00315 

22 8* 

c 


THE FAIR SHARE COMPUTATION. IT IS THEREFORE 

CO 0351 

00315 

229* 

c 


NECESSARY TO GO BACK THROUGH THE “DO 8CD“ LOOP IN 

C0G351 

CO 315 

23 C* 

c 


OPDFR 10 RECONSIDER ANY PORT WHICH MAY NOW 

DCC351, 

0D31S 

231 * 

c 


SATISFY THE REOUIREHENT THAT FRIKl .GE. RIKl. ONLY 

G0C351 

00315 

232* 

c 


PRIORITY-I PORTS FOR WHICH NO ALLOCATION HAS BEEN 

G0U3S1 

GD315 

233* 

c 


MADE ABC ELIGIBLE FOR RECONSIDERATION 

000351 

G0317 

234* 



IF I PL .NE. POLDI GO TO 600 

C0C351 

00317 

235* 

c 



C0C351 

00317 

230* 

c 


FINALLY, ALLOCATE POWER TO THOSE PORTS RE0UE5TING 

CC0351 

0031 7 

23 7* 

c 


MORE THAN THEIR FAIR SHARE. CONSIDER ONLY 

000351 

C3317 

23E* 

c 


PRIORITY-I PORTS FOR WHICH NO ALLOCATION HAS BEEN HADE 

CO 02 SI 

00 321 

239* 



DC 903 K = 1, 4 

C0C357 

00324 

24 3* 



IF tPIKl .NE, 0.0) GO TO 900 

000357 

D0326 

241* 



IF (PRCKl .NE. XU GO TO 900 

DCQ360 

00330 

242* 



P IKl = FRIK I 

CO 036 3 

00331 

24 3* 


9C0 

CONTINUE 

CD0367 

00353 

244* 



PL - C.0 

C00367 

00333 

24S* 

c 



CC0367 

00334 

24 6* 


1000 

CONTINUE 

C00373 

00 534 

24 7* 

c 



CDD373 

GD334 

248* 

c 



C0D373 

00334 

24 9* 

c 


FINALLY, ASSIGN OUTPUTS TO NOH-SUBSCRIPTEO 

CD037 3 

DD334 

26 3* 

c 


FORKAL parameters 

C00373 

5C3 36 

251* 



PI = P(l) 

00 03 7 3 

03 337 

252* 



P2 = PS23 

CO 03 7 5 







CCD277 
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003»*1 

259 ♦ 

PM = pfM i 

cci^a 

255* 

SP - PL 

003>J3 

256* 

30DQ pni~pH*ri 


257* 

PH2-PK*r2 

003^15 

2S8* 

PH3=P*‘*F3 

603*16 

259* 

Pm=PK*FM 

003S7 

250* 

PO- *MINlCfiO,P«l/EF 

00350 

261* 

ROURH 

,00351 

262* 

EMD 


D00*(3a 
000^03 
000<<Q6 
G0C<UC 
COG^l 3 
CDC^16 
CCID'JZI 
GOL<llC 
CDC6‘i 1 





7.29 PRIORITY INTERRUPT 





This component is used by the storage components to change priority of the 
power requests when minimum or maximum capacity is approached. 

Inputs 

Parameter/Port 
PS 1 

PS 3 

I NT 


Output priority for charge cycle 
Output priority for discharge cycle 



PS2 = PSl 

if INT=0 

PS 2 = 1 

if INT>0 

PS2 = 0 

if INT<0 

1 PS4 = PS 3 

if INT<0 

PS4 = 0 

i f 1NT> 0 


'j 



Input priority for PS4- output 

Input priority for PS2 output (defau I t=PSl ) 

Interrupt flag 
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SUBROUUNr H ENTRY POINT OOOONO 

STORAGE USED COOEfll C£!0061; OATAIOI OOOOIQ; BLANK C0HH0N(2) 000000 
COHN OH BLOCKS 

0003 CIHPL 000001 

EXTERNAL REFERENCES IBLOCK* MAKE I 

0004 NERR3X 


STORAGE ASSIGNMENT CBLOCK» TYPE? RELATIVE LOCATION, NAME) 


CO 01 

OCCOlO 

iOL 

0003 I OQOOOO IMPL 0000 000002 INJP* 


oQioa 

1* 

CPI 


COOOCO 

COlOl 

2* 


SUBROUTINE PIIPS2,PS4,PS1,PS3,INTI 

CODCOO 

coioi 

3* 

C 


COOOOO 

GOIDI 

«* 

C 

PURPOSE CHANGE PRIORITY OF POWER ALLOCATION TO STORAGE COMPONENTS 

C DO 000 

GOlOl 

:5* 

c 


COCOOD 

COlQl 

6* 

C 

WRITTEN BY A. W. WARREN VERSION 1, APRIL 14 1977 

COOOOO 

COIDI 

7* 

c 


coccoo 

001 OX 

«• 

c 

CALL SEOUE MCE 

COOOOO 

00101 

9* 

c 

PS2 - OUTPUT PRIORITY (0 TO 4) 

CDCGCC 

CDIOl 

10* 

c 

PS4 - OUTPUT PRIORITY JCOMPLEMENT TO PS2) 

EOCCDD 

COlOl 

11* 

c 

PSl - INPUT PRIORITY FOR PS2 

cocaoc 

00101 

12* 

c 

PS3 - INPUT PRIORITY FOR PS4 

COCOOD 

00101 

13* 

c 

IHT - INTERRUPT TLA5 

coo DOC 

0 0 101 

14* 

c 

Or NO INTERRUPT 

rooooe 

DOIOI 

15* 

c 

1= INCREASE ALLOCATION PRIORITY 

COOOOO 

00101 

16* 

c 

-1= DECPEASE ALLOCATION PRIORITY 

COCOOD 

c-oiai 

17* 

c 


ocacoo 

C0103 

18* 


real TNT 

CCOCOO 

00104 

19* 


COMMON /CIMPL/IMPL 

GO coo 0 

00105 

20* 


IFdHPL.GT.O) GO TO 10 

COOCDO 

C0107 

21* 


IF(PS3.EQ. .99999) PS3=PS1 

COG 00 2 

00107 

22* 

c 


DC 3 00 2 

GOill 

23* 


10 P52-P51 

ceoDio 

00112 

24* 


PSM=PSZ 

COOOI 1 

00113 

25* 


rrdKT,5T.D.) ps2n. 

CODDl 3 

CD 115 

26* 


IFlTNT.Lf.O.) PS2=rO. 

C00C2C 

D0117 

27* 


IMINT.GT.O) PS4= 0. 

COCC24 

G0I21 

26* 


RETURN 

GO CO 30 

GC122 

29* 


END 

000060 



7.30 HYDRAULIC PUMP 



INPUT POWER (PI) 

MAX. INPUT POWER 
(MPl) 

INPUT EFFICIENCY 
(EFl) 


The hydraulic pump model is based on a constant speed design. The pump is 
assumed to be designed to a nominal operating point and input power. For 
off-design performance the pump efficiency is assumed to be functionally 
related to the square root of the mass flow rate. 



The output mass flow rate is based on the equations 

M= P1^FF/(C1-«C2^H1) 

EFF = 1 - (1-EFD)-%SQRT(MD/M) 

where Cl, C2 are conversion constants 
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inpMts 


Parameter/Port 

P.g,§gr i ptJ.g.n 

Units 

P 1 

Input power 

kw 

H 1 

Height of water above inlet 

ft 

EFD 

Pump efficiency at design pt. ID = 0.90) 

- 

MD 

Mass flow rate at design pt. ID = 2X10^) 

gal /h 

EF 1 

Input product efficiency 

- 

MP 1 

Input maximum charging rate 

kw 

m 

Maximum al lowable mass flow rate (D = 3X10^) 

ga 1 /h 

CK 

Pump capacity cost coef f icient ^(D =0.011) 


F0 

Pump exponent for cost calculations ID = 0.5) 

- 

Y 

Pumphead exponent for cost calculations 10=0.25) 

- 

QutPUt-s 



Var i abt e/Port 



M 

Output mass flow rate 

ga 1 / h 

EFF 

Pump efficiency 

- 

CC0 

Pump cost/year 

$ 

EF 2 

Output product efficiency 

- 

MP 2 

Maximum output power 

kw 

Statistics 



M2U 

AAaximum output mass flow rate 

gal / h 

D - defau 1 t val ues 


1 

■^CK = capi ta 1 cost 

(known Unit)/((AID*481.2)^0*H1 * expected 1 

i fe til 
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The calculation sequence and default values assume a constant speed hydraulic 
pump nominally rated for 120KW and located 200 ft. below a reservoir. The 
equations relating the various physical quantities and the cost estimates 
are based on first principles and the da.ta presented in Reference 1, and the 
cost estimates on Reference 2. 

Calculation Sequence 

Cl = 0.377tfi0“® 

C2 = 8.3398 I b/gat 
II Costs (first pass only) 

F0 

CC = CK*(WD*481.2I 


1. L. Marks and T. Baumeister, "Mechanical Engineers Handbook", McGraw Hill, 
N.Y. , 1958, Section 14, p. 19. 

2. Carson and Fogleman> "Comparison of Methods for Converting Existing Power 
Plants to Pumped Storage Facilities", International Engineering Company, 
Inc., 1974. 


:ss8 


BC§ ; 


Ca I cul at ion Sequence Cont . 



2) Mass flow rate and pump efficiency 

If PI < 0, set EFF = 1, M = 0 and go to 3) 
Solve the basic equations for M and EFF using: 

- XA + B = 0 

where 

A = PI/ (C1^25^H1) 

B = A*(l-EFD)-«- VMD 
2 

M == X 

EFF = l-(l-FFD)* VffD/X 

3) Product efficiency and maximum charge rate 

EF2 = EF1->^FF 
MP2 = MINIMP1-«EFF, 

4) Compute Statistics and Costs 
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o 


SUBROUTINE PU ENTRY POINT 000216 


STORAGE USED COOEtH 000313; DATAtO) 000033; BLANK C0NH0N(2> 000000 

COMMON BLOCKS 

QQ03 CIMPL 000001 
ODON CTIME 000001 

0005 CSlMUL 000010 

0006 COST COOCOl 


external RrEERCNCES (BLOCK, NAMEI 

00C7 CUPIC 

0010 XPRR 

0011 SORT 

0012 NCRR3S 


STORAGE ASSIGNMENT (BLOCK, TYPE, RELATIVE LOCATION, NAHEI 


0001 


000073 

lOOL 

OCOl 


000142 

200L 

0000 

R 

000004 

ANS 

0000 

R 

000002 

A3 

OCQO R 

000003 

A4 

0006 

R 

000000 

CCl 

GOOD 

R 

000001 

Cl 

0005 


000000 

OUH 

0003 

I 

000000 

IMPL 

COCO 

000020 

INUPS 

000*1 

R 

000000 

TIME 

0005 

R 

030007 

TMAX 

0000 

R 

000000 

TMAXl 









00100 

14 

CPU 


CDQOOO 

COICI 

24 


SCiBROUTINE PU (M .EEE.CC ,EF2 ,MP2 ,M2U ,P1 ,H1 ,EEO ,M0 »EF1 , MPl , MH 

OOOCOO 

COlOl 

34 


1 ,CK,FO,YI 

OOCOOO 

00101 

*(4 

c 


OOODGO 

00101 

54 

c 

PURPOSE performance OF HVDRAULTC PUMP 

COOCOQ 

COlOl 

64 

c 


COOOOO 

00101 

74 

c 

METHOD COMPUTE PUMP FLOW RATES ASSUMING CONSTANT SPEED WITH 

CUOOOC 

00101 

64 

c 


COOOOO 

CDIOl 

94 

c 

efficiency a function of SORTTFLOW RATEl 

00 GOOD 

COlOl 

1D4 

c 


CO GOOD 

CDJOI 

1 14 

c 

WRITTEN BF F, 0. MAHOHY VERSION 1, MARCH 29 1977 

CCCOOC 

LDICI 

124 

c 


000000 

00101 

134 

c 

CALL SEQUENCE 

ODOOOO 

00101 

144 

c 

OUTPUTS 

COOOOO 

COlOl 

154 

c 

M - OUTPUT MASS FLOW RATE, GAL/HR 

COOOOO 

00101 

164 

c 

EFF- PUMP EFFICIENCY 

GOOOOO 

COlOl 

174 

c 

CC - PUMP COST/YEAR, 5 

COGOOO 

COlOl 

184 

C 

£F2 - OUTPUT PRODUCT EEriCIENCY 

COOCOO 

00101 

194 

c 

MP2 - MAXIMUM OUTPUT CHARGE RATE, KW 

COQOOO 

COlOl 

2C4 

c 

M2U - MAXIMUM OUTPUT MASS FLOW RATE, GAL/HR 

COODOC 

DDlCl 

214 

c 


COOOOO 

DClOl 

224 

c 

INPUTS 

COODOC 




R1 - INPUT POWER, KU 

COCOOO 
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o 

t/> 


00101 

24* 

c 


HI - HriGHT OF HATER ABOVE 

inlet, ft 

000000 

00 101 

25* 

c 


EFD - PUMP EFFICIEKCY AT 

DESIGN POINT 

000000 

00101 

26* 

c 


MO - MASS FLOU RATE AT 

DESIGN POINT* GAL/HR 

OODOQO 

OQIOI 

27* 

c 


EFl - INPUT PRODUCT EFFICIENCY 

000000 

COlOl 

26* 

c 


HPl - INPUT maximum CHAR6IN6 

rate, ku 

cooooc 

GOlOl 

29* 

c 


MM - MAXIMUM ALLOUAQLF 

MASS 

FLOW .RATE, GAL/nR 

OOQDOO 


30* 

c 


CK - PUMP CAPACITY COST 

COEFFICIENT 

GODCDO 


31* 

c 


FO - PUMP EXPONENT FOR 

COST 

CALCULA TIONS 

CDDOOO 

CL’lDl 

32* 

c 


Y - PUMP HEAD exponent 

FOR 

COST CALCULATIONS 

CDOODO 

RIEiSI 

3 J* 

c 





cocnoo 

C0103 

34* 



COMMON /CIHPL/IMPL /C T IME /TIME 2CS1 HUL/DUM (7 » ,TMAx /COST/CCI 

OOOOQO 

00103 

3E* 

c 





□OQOOO 

00 104 

36* 



REAL M*MP2,h2U.MO*MP1 «MH 



OOCOOO 

CC104 

37* 

c 





000000 

OOlOS 

3B* 



IF! IMPL .6T.0160 TO 100 



OOQDOO 

CO I CS 

39* 

c 





000000 

C0107 

4C* 



TMAXlrTK AX*. 99999 



000002 

C01C7 

41* 

c 





000002 

00110 

42* 



Cl= 3.1441E-6 



COCOQS 

OOllO 

4 3* 

c 





ooccos 

00111 

44* 



IFIEFO.EO. .99999IEF0=0.9 



D00C07 

00113 

45* 



IFIHD .EQ. .99999)MD =2.0E5 



C000I4 

00115 

46* 



IFlMPl.ro. .99999»MP1=1.E8 



C00021 

C0117 

47* 



IFCMM .EO. .99999JMM rS.OtS 



CQ0026 

00121 

48* 



iriCK .EC. .999991CK =0.011 



00 00 3 3 

00123 

49* 



IFIFO .EO. .999991F0 =0.5 



00DL40 

00125 

50* 



IFIY .EO. .99999IY =0.25 



ODOOK'S 

00127 

51* 



CC =CK*«MD*481.21**F0*H1**V 



0C0052 

CD127 

52* 

c 





000052 

CD13a 

53* 



M2U =C.D 



000071 

00131 

54* 


100 

EFF= l.D 



C0G073 

00132 

55* 



M= C.O 



00DD74 

00133 

56* 



IFIPl .LE. 0.01 GO TO 200 



0Q007S 

00133 

5 7* 

c 





CCDoTS 

00133 

5fl* 

c 


SOLVE CUBIC EQUATION FOR M AND EFF 

000075 

00133 

59* 

c 





0DD07S 

00135 

6C* 



A3= -P1/CC1*H1I 



ODDIOO 

C0136 

61* 



A4 =-A3*tl.0-FF01*S0RTIMDI 



C0Q105 

00136 

62* 

c 





C00105 

0D137 

63* 



CALL CUSiCf A3tA4,ANSI 



00DU5 

G0140 

64* 



IFtANS.tE.O.I GO TO 200 



000122 

00140 

65* 

c 





000122 

00142 

66* 



H =AUS**2 



000125 

00143 

67* 



EFF = l.O-U «0-CF01*SORT(MO)/ANS 



CD0130 

CD143 

68* 

c 





000130 

00143 

6S* 

c 


PRODUCT EFFICIENCY 

AND 

CHARGE RATE 

00D130 

00143 

70* 

c 





DCC130 

00144 

71* 


200 

EF2=EFI*EFF 



000142 

3C145 

72* 



MP2=AM1M1IMP1*EFF,HM*H1*C1I 



000144 

00145 

73* 

c 





000X44 

00146 

74* 



IFIIMPL.LE.DRETURN 



CO CIS 6 

00146 

75* 

c 





C0D156 

00146 

76* 

c 


STATISTICS 



000156 

QG146 

77* 

c 





CQD156 

t 0 1 50 

76* 



H2U=AMAX1 IH2U.H 1 



000165 

CO 150 

79* 

c 





CQ0165 

EC151 

ec* 



IF ITI PE. LT.7MAX1) RETURN 



C0Q173 
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c 




iSOlSl 61* 
00155 82* 
00155 83^ 
QC154 BH* 
00155 85* 


C 


CCS reel «CC 

RETURN 

END 


000173 
CO 0202 
000202 
00C205 
000312 


7.31 AC-DC RECTIFIER 



AC POWER (PI) 

INPUT MAX. POWER 
(MPl) 



DC POWER (P2) 

OUTPUT EFFICIENCY (EF2) 
OUTPUT MAX. POWER (MP2) 


This component models a solid-state recti tier/ transformer. Power losses due 
to resistive heating and contact potential loss are modeled. Default parameter 
values determining power losses are based on 200 kw rated power. 


TRANSFORMER 



FIGURE 7.31: RECTIFIER FUNCTIONAL DIAGRAM 
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RE 


Inputs 

Parameter/Port 


P 

RT 

XT 

VAC 

DR 

RR 

RAP 

EF 

MP 

CC 


1 


1 

1 



DsscriptiQn 


AC input power 

Transformer resistance (D = 0) 
Transformer reactance (D = 0.03) 
Rated AC voltage (D = 440) 

Rectifier contact potential (0=0) 
Rectifier resistance (D = 0.02) 
Rated input power 
Input product efficiency 

g 

Maximum input power (0 = 1-xlO ) 
Rectifier cost/year 


Q.M.tP-ms 

Variable/Port 
P 2 

lAC 
PL 

EF 2 

MP 2 


DC output power 
AC input current 
Power I OSS 

Output product efficiency 
Maximum output power 


, UQ i.t? 
kw 
ohms 
ohms 
vol ts 
vol ts 
ohms 
kw 

kw 

$ 


kw 

amps 

kw 

kw 


D - Default values supplied. 
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RE 


Calculation Seaueace 

1) Compute transformer power angles 

Y = SIN<9) = V3*XW1^1000/VAC^ 

ABS(Y)>1 O diagnostic 

2) Input and output current 

If PI < 0 set P2 = lAC = PL = 0., EFF = 1 and go to 4) 

I AC = VAC V2-2CO5(0) t < V1*XT) 

" = VAC 1 / 2 - 2 ^ Vi7y^ / ( V^XT) 

lDC =Tr*IAC / VT* 

3) Power loss and output power 

PL = ( VliRT->HAC^ -f lDCt<-( DR+ lDC^R ) )/lOOO 
P2 = PI - PL 
EFF ^ P2/P1 

P2 < 0 O DIAGNOSTIC, EFF =1 

4) Efficiency and maximum power 

EF2 = EFl-KEFF 

MP2 ^ MIN(MP1,RAP)^«FF 

5) Compute Costs 
BCS 40180-2 
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KJ 

-J 

O 


SUBROUTINE RE ENTRY POINT 000257 


ST0RH6E USED CODEtl) C00352; 0*T*(0I 000073; BLANK C0MMQMI2) 000000 

COMWON BLOCKS 

0003 CIKPL 0D0D02 
OOOH CTIME 000001 

0005 C57HUL 000010 

0006 COST COOOQl 


external references irlock, namei 


0007 

KWDUl 

□ DIO 

NI02* 

0011 

SORT 

0012 

NCRR3S 


ST0RA6E ASSIBnhENT IBLOCK, TYPEt RELATIVE LOCATION, NAHEI 


OCCl 000042 

lOQL 

DCOO 


000007 

lOBF 

0001 000100 

200L 

ocoi 


000117 

30DL 

OOOl CQD214 

400L 

0006 

R 

000000 

CCI 

0005 000000 

BUM 

0000 

R 

ODGOOb 

EFF 

0000 R 00 DODO 

IOC 

000 3 

I 

000000 

IMPL 

0000 D0D061 

IN JPS 

0000 

R 

000001 

PI 

0004 R OCCOOO 

TIME 

0005 

R 

000007 

TMAX 

0000 R 000003 

TMAXl 

0000 

R 

00D0C4 

Y 


0000 0Q003N 30BF 
0003 I 000001 ICNT 
0000 R C00032 R00T3 
DCOO R C00005 YY 


00100 

1 * 

CRE 



COODOC 

CO 10 1 

2* 


subroutine RE{P2,IAC,PL,Er2,HP2,Pl,RT,XT,VAC .OR, 

RR,RAP,EF1,MPI »CC) 

ooooao 

COiOl 

3* 

C 



oocooo 

ODIOI 

4* 

C 

PURPOSE SOLID state RECTIFTEH/TR ANSFORMER MODEL 

COCCOQ 

COlOl 

5* 

C 



COOOQC 

COlOl 

6* 

C 

METHOD COMPUTE OUTPUT DC POUEH 

AS A FUNCTION 

coococ 

COIDI 

7* 

C 

OF INPUT AC POWER 


COCOQC 

DDIDl 

B* 

c 



COOOOO 

OOlOl 

9» 

c 

WRITTEN BY Y.K.CHAW VERSION 1, 

JUNE 1, 1977 

COCCOO 

DOlOl 

10* 

c 



eoaooo 

DOlOl 

11* 

c 

CALL SEQUENCE 


ooeooQ 

00 101 

12* 

c 

OUTPUTS 


000000 

□ 0101 

13* 

c 

P2 -DC OUTPUT POWER, KW 


coccoc 

i.0101 

14 * 

c 

lAC -AC INPUT CURRENT, AMPS 


COCCOO 

COlOl 

15* 

c 

PL -POWER LOSS, KU 


COOOOO 

CO 101 

Ic* 

c 

EF2 -OUTPUT PRODUCT EFFICTEHCY 


CCCDOC 

COlOl 

17* 

c 

MP2 -MAXIMUM OUTPUT POWER, KU 


COODOG 

00101 

18* 

c 

INPUTS 


CO DODO 

COlOl 

19. 

c 

PI -AC INPUT POWER, KW 


COOPOO 

€0101 

2C* 

c 

RT -TRAHSFORMUR RrslSTAHCF, OHMS 


000000 

c eioi 

21* 

c 

XT -TRANSFORMER REACTANCE, OHMS 


£D0G3D 



. 



^C0500 






— 
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coloi 

23* 

C 


DR -RECTiritR CONTACT POTENTlALt VOLTS 

COOOOO 

COIDI 

2*1* 

c 


RR -RrcTlriCR RESISTANCE, OHHS 

CO C 000 

COlOl 

25* 

c 


RAP -RATED INPUT POilER, KU 

COOOOO 

COIDI 

26 • 

c 


EFI -input product EFFICIENCY 

COOOOO 

OClOl 

27* 

c 


PPI -MAXIMUM INPUT POWER, KW 

COOOOO 

CGlOl 

28* 

c 


CC -rectifier COST/YEAR, % 

OOODOO 

DOlOl 

2 1* 

c 



COOOOO 

00133 

30* 



COMMON ACIMPL/IMPL,ICNT/CTImE/TIME/CS1MUL/OOMC7I,TKAX/COST/CC1 

COOOOO 

0010*1 

31* 



REAL IAC,MP2,MP1, IOC 

cooocc 

C0105 

37* 



DATA PI/3. 1*1159/ 

COOOOO 

00107 

33* 



RATA R00T3/1 .73205/ 

CODOGG 

00107 

3*1* 

c 



COOOOO 

com 

35* 



lFdMPL.GT.OI Go TO 100 

000000 

U0113 

36* 



IFCMPl .EO. .9V999)MP1=1,E8 

C00DQ2 

00115 

37* 



iriRT.EO.. 999991 RT=0. 

COOC07 

00117 

38* 



1F(XT. EC. .99999) XT::. 03 

OQOoI 3 

C0121 

39* 



IFIVAC.EO.. 99999) WACzMMO, 

CO 002 0 

CO 12 3 

40* 



iriDR.EO . .99999) DR-0. 

000025 

00125 

*|J* 



iriRR.EO.. 99999) RRr.02 

00003 I 

00127 

*I2* 



TMAXldHAX*. 99999 

00 CO 3 6 

C.C127 

M3* 

c 



CC0036 

00127 

<1*1* 

c 


COMPUTE TRANSFORMER POWER ANGLES 

G0U036 

00127 

MS* 

c 



000036 

G013Q 

*16* 


100 

Y=R00T3*XT*Pl*10Q0./( VAC*VACI 

0000*12 

C0131 

*l7* 



YY = Y*Y 

GOODS 1 

00132 

*|6* 



IF«YY.LE.1.)G0 to 200 

CD005 3 

0G13<I 

M9* 



ir tlMPL. EO. 2 ) WR I TE 1 6,1 08 )P1, XT, VAC 

□OUOS6 

0C1**2 

60* 


108 

FOHHATdHG, 19HRE, AC INPUT POWER ,F12.3,*l9H TOO LARGE IN RELATION 

000071 

001«l2 

51* 



ITO transformer reactance ,FI2.3,22h AND RATED AC VOLTAGE ,F12.3) 

200071 

001*»3 

52* 



IFdMPL.EQ.21ICNT=ICNT«l 

002071 

ODl'lS 

S3* 


2 00 

YY=AMIN1 ll.,YTl 

COUlOO 

001M5 

51* 

c 



COOICC 

001««5 

55* 

c 


INPUT AND OUTPUT CURRENT 

uOOlOC 

roi‘*s 

5 C* 

c 



000100 

aoi«»6 

57* 



IF {PI .ET.Q. )G0 TO 300 

C001D5 

C0150 

'53* 



P2=0, 

CQOllO 

00151 

5 9* 



1AC = Q. 

000111 

00152 

60* 



PL=C, 

000112 

00153 

61* 



EFF=1 . 

C00113 

001S<» 

62* 



GO TO *lCO 

coons 

DOISM 

63* 

c 



coon 5 

00155 

6M ♦ 


300 

IAC-=VAC*S0RT(2.-2.*SQRTd.-YV ))/CR00T3*XTl 

CDG117 

00156 

65* 



lDC=PI*rAC/S0RT(6.) 

CC01*»C 

00156 

6i * 

c 



0001*10 

50156 

67* 

c 


POWER LOSS AND OUTPUT POWER 

0CC1*1C 

GO 15 6 

68* 

c 



CQOlRO 

0015T 

69* 



Pl = IR00T3*RT*lAC*IAC*r0C*tDR*IDC*RRn/100D. 

00C1*1 7 

00160 

70* 



P2=P1-PL 

0QC161 

QC161 

71* 



EFF=P2/P1 

000163 

DO 162 

72* 



IFIP2.GT.C.) GO TO *100 

CDC165 

0016*1 

73* 



lFdHrL.EQ.2)URlTE I6,308)PL,P 1 

G0017D 

50 171 

7*1* 


3 00 

FORMATUHO, IMHRE POWER LOSS ,ri2.3,21M EXCEEDS INPUT POWER ,F12.3» 

DD0202 

DC172 

75* 



IF dMPL .ro,2)TCNTrlCNT + l 

000202 

0017*1 

76* 



P2=E. 

G0021C 

00175 

T7* 



EFF = 1. 

00021 1 

00175 

7b* 

c 



00021 1 

5C175 

7S* 

c 


EFFICIENCY AND MAXIMUM POWER 

000,211 


Si 

n3 S 

SI 

c ^ 

r< tr 





00175 

SO* 

C 


CCl7b 

8 1* 

*00 

tF2=cri*EFF 

00177 

82* 


HPZ=AK1N1 (HP1,R8P) 

D0200 

82* 


HP2=HP2*tFF 

CC201 

8*1* 


iniHPL.LE.lIRETURM 

00203 

85* 


IFillHF.LT.TnAXllRFTURN 

C0205 

66* 


CCI=CCI-*CC 

C020S 

87* 

c 


00206 

8 8 • 


RETURN 

D0207 

89* 


END 



C002I1 
00021<i 
□a02l6 
C0C221 
C00226 
000235 
CCC2MM 
0002*4M 
0002*4 7 
000351 



.IRIGWW. a 
j. poim aUALlEw 



7.32 RANDOM NUMBERS 


MEAN 

STANDARD DEVIATION 


- RANDOM NUMBERS 


This component generates an uncorrelated sequence of normally distributed 
random numbers with a specified mean and standard deviation. 


I nouts 

Parameter/Port 

m 

SIG 

NST^ 


Description 

Mean value of sequence 
Standard deviation of sequence 
Start parameter. (Use any odd Integer 
greater than 1). Default supplied. 


Variable/Port 

FO Random number output 


If RESET parameter >0 then succeeding simulations use NST to start random 
sequence. 
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CNTRT POINT 000065 


SUBROUTINE RN 

STCk^GE USED COOEUl 000105; DATAlOl 0003331 BLANK C0MM0NI2) OOOCOO 
CONN ON BLOCKS 
0003 CIMPL 000003 

EXTERNAL references (BLOCK, NANE) 

ODOR KEPR3S 

STORAGE ASSIGNNENT (BLOCK, TYPE, RELATIVE LOCATION, NAHEl 

0001 CC0026 123G OCQl C0C021 5L 0000 R 000006 AXO 0000 I 000007 I 0003 COOCOl ICNT 

0003 1 000000 INPL 0000 00002*1 INJP5 0003 I 000002 ITEST 0000 0 OODDCR SUN ODCO 0 COOODO X 

0000 D 000002 Y 


OOlQO 

!• 

CRN 





000030 

00101 

2* 


subroutine RN(U,AX,SIG,AHN> 




000030 

COICI 

3* 

C 

VERSION 2, • REVISED MAY 

1977 


033000 

00101 

R* 

C 

PURPOSE - GENERATES A NORMALLY 

distributed random number 

000330 

CD 101 

S* 

C 

CALL SEOUENCE 




OOCOOQ 

00101 

6* 

c 

U - RANDOM number 

OUTPUT 



OCuOQC 

COlOl 

7* 

c 

AX- A START PARAMETER WHICH 

CONTROLS THE BEGINNING POINT 

COOCOC 

roici 

8* 

c 

OF THE OUTPUT 

SEOUENCE. 

AX SHOULD BE ANY ODD INTEGER 

OODOOO 

00101 

96 

c 

GRFATER THAN 

ONE. THE 

DEFAULT 

VALUE OF AX IS B31169. 

C O DO 00 

COlQl 

1C* 

c 

AX IS UPDATED 

FOR NEW CALLS TO 

THE SUBROUTINE. 

CODOOO 

color 

11* 

c 

SIG- THE DESIRED STANDARD DEVIATION 

OF THE SEOUENCE 

COCOOO 

OClOl 

12* 

c 

AMN- THE DESIRED MEAN OF THE 

SEQUENCE 

CO 033 0 

00101 

13* 

c 





000000 

CDlOl 

l*t* 

c 

DESIGNED BY ROGER W. CALL 

SEPT 

1976 

COOCOC 

00103 

15* 


COMMON /CIMPL/IMPL, ICNT, ITEST 




oocooo 

OD10^ 

16* 


DOUBLE PRECISION X,T,SUM 




coonpo 

C01G5 

17* 


DATA Y /2S3967.D0/ AXO/D./ 




OOOCC'j 

COHO 

18* 


IFdtlPL.GT.ClGO TO 5 




ccccoo 

3X112 

19* 


iriAX.EO. .999991 AX=^31*^69. 




O00D02 

0011** 

20* 


IFt AXO.EO.O. 1 AX0= AX 




D000D7 

00116 

21* 


IFdTEST.EQ.il AX= AXO 




cocni 3 

00120 

22* 


5 X =AX 




000021 

CD121 

2 3* 


SUM=D.oe 




000022 

DD122 

2M* 


DO 1 1=1,12 




C00026 

0012 5 

25* 


X= DHOD «X*T,16777216.00) 




C0D026 

C0126 

26* 


1 SUH= SUM-* X/16777215.D0 




C0DC36 

CD130 

27* 


AX= X 




cacDij 3 

00131 

26* 


U=tSU*— 6.C»*SIG + AMN 




OOCiCmS 

C0132 

29* 


RETURN 




0DD05M 

00133 

3C* 


END 




DOOlOH 


39 

2|i 


FIN 

Input quantity 


Cl 

Slope G < F 1 N < C3 


C2 

Slope FIN>C3 


C3 

Positive saturation 

intercept 

C4 

Slope 0>F1N>C6 


C5 

Slope F IN <C6 


C6 

Negative saturation 

intercept 



F© = C1^3 + C2*(FIN-C3) if FIN >C3 

F0 = CI^IN ifO<FIN<C3 

F0 jt C4->H^IN If 0>FIN>C6 

F0 = C4^6 + C5*(FIN-C6) if FIN<C6 


BCS 40180-2 





M2 BCS 40180-2 


SUBROUTINE S« 


ENTRY POINT 000051 


STORAGE USED CODEIll C0CQT6; DATA(QI 000013$ BLANK C0NN0N(2) COOOOO 

EXTERNAL REPERENCESf BLOCK, NAME) 

0003 NERRSS 

STORAGE ASSICNNCNT tBLOCR, TYPE, RELATIVE LOCATION, NAME) 

CODl 000017 lOL 0001 0000A2 lOOL 0001 000027 20L 0001 000037 30L OCQO OOOCOO INUPA 


GOIOO 

!• 

CSA 





oooooc 

COlOl 

2* 


SUBROUTINE S A (FO »FIN , Cl ,C2 ,C3 ,C<4,CS,C6) 



GDOODC 

OClOl 

3* 

C 





COQDOD 

COlOl 

«i* 

C 

PURPO SE 

“ TO SIMULATE SATURATION 



COUDQC 

DOlQl 

5* 

C 





COOOOO 

CClOl 

b* 

c 





CGDCOC 

CClOl 

7* 

c 

METHOD - 

SEE CODING. C3 AND CG ARE VALUES OF THE 

INPUT AT WHICH 

CCCODO 

GDIGI 

a* 

c 


SATURATION OCCURS. C3 IS GREATER THAN 

C6. THE routine 


DOCQOO 

CGlOl 

9* 

c 


CAN SIMULATE A CHANGE OF SLOPE AT THE ORIGIN {Ci.NE.C4il 

COOOOO 

COlOl 

1C* 

c 


PROVIDED C6 IS LESS THAN 2CR0. SIMILARLY THE SLOPES 


caccoc 

GClOl 

11« 

c 


IN THE SATURATION REGION IC2 AND C51CAN 

DIFFER. 


cocooc 

00101 

12* 

c 


the slopes can at positive or negative 



cnoooD 

acioi 

1 2* 

c 





ODDOOD 

CClOl 

l«l* 

c 





OC'COGO 

DOlOl 

IS* 

c 

WRITTEN 

BT - ADAM LLOYD LATEST 

REVISION - NOV 

75 

OODOOO 

COlQl 

1 6* 

c 





cocsoo 

00101 

17* 

G 

LIMITATIONS - USE OF 2CR0 SLOPES tC2=0 OR C5=0 » 

IN The SATURATION 

DO CUD 0 

OClOl 

U* 

c 


REGION SHOULD BE AVOIDED. IT IS DESIRABLE THAT THE 

CC300D 

COlOl 

19* 

c 


SLOPE RATIOS C1/C2 AND CM/C5 SHOULD NOT EXCEED lOD. 

c-iicaoc 

00101 

20* 

c 


EXCESSIVE SLOPE RATIOS MAY RESULT 

IN VERY SLOW 


CO ODD G 

COlOl 

21* 

c 


CONWERSrEHCE 



CDC3C0 

00131 

22* 

c 





COOOOO 

COlOl 

23* 

c 





CODDQd 

COlOl 

2«t* 

e 

INPUT/OUTPUT LIST 



COGCOO 

C'0131 

25* 

c 





C6000.C 

UOICI 

26* 

c 

FO 

OUTPUT variable ANY 

OUTPUT 

VAR 

DDtCCO 

Co 101 

27* 

c 

FIN 

INPUT VARIABLE ANY 

INPUT 

VAR 

000000 

CD 101 

2£ * 

c 

ci 

SLOPE 1 FIRST ANY 

INPUT 

PARAM 

GOUOOC 

COiOl 

29* 

c 

C2 

SATURATION SLOPE 1 SLOPE .ANT 

INPUT 

padam 

COCO 30 

CDlDl 

3C* 

c 

C3 

SATURATION INTERCEPT 1 ANY 

INPUT 

PARAM 

COCDOO 

POlQl 

31* 

c 

C9 

SLOPE 1 SECOND AfJT 

INPUT 

PARAM 

DO.CCOC 

00101 

32* 

c 

C5 

SATURATION SLOPE 1 SLOPE ANY 

INPUT 

PARAM 

cocooa 

00101 

33* 

c 

C6 

SATURATION INTERCEPT) ANY 

INPUT 

PARAM 

COCCDQ 

COlOl 

S^J* 

c 





cocao a 

DO 103 

35* 


imfin 

!.GT.C3>G0 TO ID 



00 CoG Q 



r' 
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aoiQs 

36^ 

iFtriM.L7.C6»50 TO 20 

000003 

00107 

37* 

IFrriN„LT.O.>GO TO 30 

OOOCQ? 

CO ill 

38* 

FOiCj*FIN 

OOOQ12 

00112 

3?* 

60 TO ICO 

COCOS s 

CD 112 

‘(C* 

C POSITIVE SATURATIOM 

coons 

00113 

Ml* 

10 F0-C1*C3*C2*|,F1N-C3) 

OOCOl? 

con«« 

•12* 

BO TO IQ'D 

00C025 

001 IH 

‘^3* 

C NEGATIVE SATURATION 

C0CO2S 

ecus 


20 ro=C4«e6*CS*(FlN-CSl 

OOD027 

CC11& 

85* 

GO TO lOQ 

000035 

001 lb 

86 * 

C NEGATIVE UNSATURATEO 

000035 

OCU7 

8 7* 

30 F0=C4*FTH 

O0DO3T 

(uD120 

48* 

IQC RETURN 

C0CC42 

GGI21 

4 9* 

END 

0DU0T5 



sw 


7.34 SINGLE POLE SWITCH 



TC1 TIME JC2 TCI TIME TC2 

SW1 = 1 SW1=0 

the switching operation may be CONTROLLED BY EITHER 
TIME OR THE INPUT PARAMETER SW1. THE TIME DEPENDENCE 
MAY BE ELIMINATED BY SETTING TC1 = 10^6 


! loauis 

t Parameter/Port 

P^^rlR.ll.gn 


1 

! VAl 

Input to swi tch 


I VBl 

Input to swi tch 


1 SWl 

Switch control parameter 


i TCI 

Time for first switching 

( hours ) 

TC2 

Time for second switching 

( hours) 

Cutouts 

Variable/Port 

V01 

Switch output 



TCI < TIA/IE < TC2 
otherwise 

TCI < TIME < TC2 
otherwise 

2BA 
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SUBROUTINt SU ENTRY POINT 000CR2 

STORAGE USCO CORE U I liCCSRTs OATAtO» 00C007; BLANK CONHONUI OOOCCO 

COMNON blocks 

3DC3 CITME 000001 

ODG«l CIO 000C03 

EKTERNAL REFERENCES I BLOCK , NAME I 
0005 NEPR3S 

STORAGE ASSJGNNENT (BLOCK, TYPE, RELATIVE LOCATION, MAMEI 

aooi conooz joiag oooo oooaos injps odor cooooo xread oook ooooqi iwrite ocoo r oooooo sx 
0003 P oooooo TINE 



00103 

1* 

C5U 





OOOOOO 

00101 

2* 


SUBROUTINE SW(V01,VA1 ,VBl,SHl ,TCl,TC2l 




COCOOC 

00101 

3* 

C 





OOOOOO 

COlOl 

•l* 

C 

PURPOSE - TO PROVIDE SNITCH CONTROL FOR ONE 

VARIABLE 



CUDOOQ 

COlOl 

5* 

C 





000000 

CiOlOl 

fc* 

c 





COOOCO 

00101 

?• 

c 

HCTHOD - SEE COOING 




COUOOC 

COlOl 

fl* 

c 





DDODOD 

00 101 

9* 

c 





DCOCOO 

00101 

10* 

c 

NRTTTEN by - AOAN LLOYD LATEST 

REVISION 

NOW 75 


COCCOO 

COlQl 

1 1* 

c 





OOOOOO 

aoiQi 

12* 

c 





C0DD03 

DOIDI 

13* 

c 

LINITATIONS - NOT MORE THAN TWO SWITCHINGS 

AT TIMES TCI 

AND TC2 

CODODC 

00101 

14 ♦ 

c 





GOCQOO 

ODIOI 

IS* 

c 





COOOOD 

00 101 

It* 

c 

INPUT/OUTPUT LIST 




COcODC 

COlOl 

17* 

c 





COOOCO 

wDlOl 

18* 

c 

VOl OUTPUT VARIABLE NO 1 

ANY 

OUTPUT 

VAR 

COOCOD 

COlOl 

19* 

c 

VAl INPUT variable NO A1 

ANY 

INPUT 

VAR 

OOCCOQ 

00101 

2C* 

c 

VBl INPUT variable ho R1 

ANY 

INPUT 

VAR 

ODODOO 

uOlOl 

21* 

c 

SUl SWITCH CONTROL INITIAL VALUE 

— 

INPUT 

PARAH 

DOGOOO 

OGlOl 

22* 

c 

=1. VO=VB 




CCOCQO 

uOlOl 

23* 

c 

ru. VO=VA 




COOOOO 

noioi 

24 • 

c 

TCI TIME FOR FIRST SWITCH 

secs 

INPUT 

PARAH 

GOOCQO 

COlOl 

2Z* 

c 

TC2 TIME FOR SECOND SWITCH 

SECS 

INPUT 

PARAM 

DOOOCO 

CClOl 

26* 

c 

nC2.G7.TCll 




COOOOD 

00103 

27* 


COMMON/CTIME/TIHE 




CODOCQ 

00104 

28* 


COMMON/C 10/ IRE AD, I WRITE, ID I AS 




OOCOOC 

CCJC5 

29* 


SXrSW] 




OQDOOC 




BCS 40 




oai 06 

3C* 

IF{TlHC.GT.TCl.AND.TIHE.l,T.TC2>SX-ABSesWl-l» I 

COOOOl 

OOilD 

31 ■i* 

V01=Vftl 

000023 

com 


IF(SX.ST.0.5»V01=VB1 

000025 

coil 3 

33* 

RETURN 

D0C033 

C011<« 

3<»* 

END 

0000*16 




7.35 TWO POLE SWITCH 


VA1 ^ 


V01 ^ 

VBl ^ 




V02 

VA2 

"" ■ — CJ 1 

VB2 ^ 



i 


■ — \J 


SEE SW FOR SWITCH CONTROL LOGIC 


Inputs 

Parameter/Port 

Description 


VAl 

Input to swi tch 1 


VA2 

I nput to swI tch 2 


VBl 

1 nput to swi tch 1 


VB2 

1 nput to swi tch 2 


SWl 

Switch control parameter 


TCI 

Time for first switching 

( hours) 

TC2 

Time for second switching 

( hours ) 

Outputs 

Variable/Port 

V01 

Output from switch 1 


V02 

Output from switch 2 




BCS 40180-2 


BCS 40180-2 


SUBROUTINE 5X 


ENTRY POINT OD0052 


STORAGE USED CODEU) 0CQ062; DATA(Q) 000007; BLANK C0HN0N(2> 000 000 
CQKMON CLOCKS 

0003 C1IHE 000001 

0004 CIO 000003 

EXTERNAL REFERENCES (CLOCK, NAHEI 
3005 NERR3S 

STORAGE ASSIGNMENT (BLOCK, TYPE, RELATIVE LOCATION, NAME) 

0004 00CC02 JDIAG 0000 000003 INJPS 0004 000000 IREAD 0004 000001 lURITE OCDO R COCCOO SW 

0003 R OCOOOO TIME 


00100 

1» 

CSX 






000000 

CDlOl 

2* 


SUCROUTINE SX(V01,V02,VA1*VA2,VB1,VB2,SU1 

,TC1,TC2I 



CCOGOO 

CO 101 

3* 

C 






ooccoc 

rcioi 

4* 

C 

PURPOSE 

- TO PROVIDE A SWITCH COMPONENT FOR 

TWO variables 


CQOCOO 

CClOl 

54 

C 






000000 

COlOl 

e* 

C 






CQOOOO 

COIDI 

7* 

C 

NET HOB 

- SEE CODING 




COoDOD 

COIDI 

e* 

C 






CODCOO 

OOlOl 

V* 

C 






COOCOC 

COIDI 

10* 

c 

WRITTEN 

BY - ADAM LLOYD LATEST 

REVISION 

NOV 75 


CCOCCD 

COlOl 

11* 

c 






CO 0000 

GOlOl 

12 ♦ 

c 






CO 000 0 

00101 

13* 

c 

LIMITATIONS - NOT MORE THAN TWO SWITCHINGS 

AT TIMES TCl 

AND TC2 

coccoc 

CD 101 

14* 

c 






DOOCGO 

CIClOi 

154 

c 






cooooc 

COlOl 

1 t* 

c 

INPUT/OUTPUT LIST 




coccoc 

00101 

1 

c 






OGQOOO 

:oioi 

IF 4 

c 

VOl 

OUTPUT VARTAPLE NO 1 

ANY 

OUTPUT 

VAR 

OOQOOO 

COlOl 

194 

c 

V02 

OUTPUT VARIABLE NO 2 

ANY 

OUTPUT 

VAR 

COCCOC 

COlOl 

2C4 

c 

VAl 

INPUT VARIABLE NO A1 

ANY 

INPUT 

VAR 

cccooo 

CD 101 

214 

c 

VA2 

INPUT VARIABLE NO A2 

ANT 

INPUT 

VAR 

COCCOO 

CQIOI 

224 

c 

VBl 

INPUT VARIABLE NO B1 

ANY 

INPUT 

VAR 

COODGC 

COlOl 

234 

c 

VB2 

INPUT VARIABLE NO 02 

ANY 

Input 

VAR 

COCOQC 

ODIUI 

24 4 

c 

SUl 

SWITCH CONTROL INITIAL VALUE 

— 

INPUT 

PARAM 

COQOQG 

ODIOI 

254 

c 


=1. Vo^VB 




Docnuo 

CO 101 

Zb* 

c 


=C. VOrVA 




OOQOOO 

COIDI 

274 

C 

TCI 

TIME FOR FIRST SWITCH 

SECS 

INPUT 

param 

CCoCDO 

-0101 

224 

c 

TC2 

TIME FOR Second switch 

SECS 

INPUT 

PARAM 

COOOOG 

/.n mi, , 

794 , 

c 


tIC2.GI.TCU 




OOCCOC 
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0C105 

3C* 

COHMOK/CTIMF/TIME 

00104 

31* 

COMHO»^/CIO/rRCAD,TWRITE ,1DI*S 

OOIOS 

32* 

sw=swi 

C<01G6 

33* 

IFCTlHE.G7.7Cl.AHD.TlM|:,LT.TC2ISMrABSfSUl-l 

uono 

34* 

VOIZVAI 

00111 

3C* 

V02ryA2 

G0112 

36* 

iriSW.GT.O.SI V01=VB1 

00114 

37* 

in SU.GT.0.5IV02 = VB2 

CC116 

3B« 

RETURN 

coil 7 

29 * 

END 


cocoao 
cooooo 
cooooo 
COCCOl 
CQC023 
C00025 
0C0C27 
COD035 
0050H3 
C0Q06 1 


t/i 

X 



7.36 THREE POLE SWITCH 



Inputs 

Pa fame ter/ Port 

Description 


VAl 

Input to swi tch 1 


VA2 

Input to switch 2 


VA3 

Input to switch 3 


VBl 

Input to switch 1 


VB2 

Input to switch 2 


VB3 

Input to switch 3 


SWl 

Switch control parameter 


TCI 

Time tor first switching I 

[ hours) 

TC2 

Time for second switching 

{ hours 

Outputs. 

Varl ab i e/Port 

V01 

Output from switch 1 


V02 

Output from switch 2 


V03 

Output from switch 3 
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SUEROUTINE SY ENTRY POINT 000063 


ST0RA6E USED CODEllI 000077; .DATAJQl 000011; BL*NK C0««0N«2> DOOOQO 

COHN OK PLOCRS 

0003 CTIME ODODOl 

oocj cro 000003 


EXTERNAL REEERFNCES IBLGCK* M*HE) 
0005 NERR3S 


STORAGE assignment C BLOCK » TYPEt RELATIVE LOCATION, NAME) 

00C« 000002 10ZA5 0000 000003 INJPS 0004 000000 IREAD OOOA 000001 ZWRZTE OCOO R OOOOGO SV 

0003 B 000000 TIME 


00100 

1* 

CSY 






CDOOOC 

00101 

7* 


SUBROUTINE St|V01»W02 ,¥03,VA1 

,VA2,VA3,VB1,VB2,VB3,SU1 

,TC1,TC2) 

OOOCOO 

CO 101 

3> 

C 






000000 

CO 101 

H* 

C 

PURPOSE 

- TO PROVIDE A SWITCH COMPONENT FOR THREE VARIABLES 


CDOOOC 

COiCl 

5* 

C 






CODOOO 

ccioi 

6* 

C 






ccooac 

uoiai 

7* 

C 

METHOD 

- SEE COOING 




cooooc 

f-OlDl 

!}* 

c 






OOOCOO 

OCIDI 

9* 

c 






CODOOO 

COlOl 

10* 

c 

WRITTEN 

BY - ADAH LLOTD 

LATEST REVISION 

NOV 75 


CDOQQC 

COlOl 

11* 

c 






oooooo 

aoioi 

12* 

c 






coooao 

ODISI 

13* 

c 

limitations - not more than two 

switchings at times TCI 

and TC2 

CO 0000 

00101 

m* 

c 






CDOOOO 

00101 

1 £* 

c 






oooooo 

30101 

16* 

c 

INPUT/OUTPUT LIST 




cooooc 

coiai 

17* 

c 






oooooo 

OOlOl 

18* 

c 

WOl 

OUTPUT VARIABLE NO 1 

ANY 

OUTPUT 

VAR 

DDCDOC 

COIOI 

15* 

c 

V02 

OUTPUT VARIAPLE HO 2 

ANY 

OUTPUT 

VAR 

COOODD 

CDIGI 

23* 

c 

V03 

OUTPUT VARIABLE HO 3 

tta 

OUTPUT 

VAR 

CO'JOQO 

COlOl 

21* 

c 

VAl 

INPUT VARIAElC mo A1 

any 

INPUT 

VaR 

oooooo 

30101 

22* 

c 

VA2 

Input variaele no a2 

ANY 

Input 

VAR 

CODGOO 

30101 

23* 

c 

VA3 

INPUT VARIABLE NO A3 

ANY 

INPUT 

VAR 

cococo 

CGIGI 

2«* 

c 

VBl 

INPUT VARIABLE NO B1 

ANY 

input 

VAR 

ODGODO 

COlOl 

25* 

c 

VE 2 

INPUT VARIABLE NO B2 

ANY 

input 

VAP, 

coccoo 

OOlGl 

2C.* 

c 

VB3 

INPUT VARIABLE NO B3 

ANY 

input 

VAR 

OCOOOD 

00101 

2 7* 

c 

SWT 

SWITCH control initial VALUE 

INPUT 

PARAM 

OOCOOO 

DOIDI 

2B* 

c 


=1. VCrVB 




CODCOO 

COltil 

29* 

c 


=0. VC=VA 




CDOOOO 
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COlOi 30* C TCI TIME FOR FIRST SWITCH SECS INPUT P*RAM 

COlOl 31* C TC2 time FOR SECOND SWITCH SECS INPUT PARAH 

GGIOl 32* C fTC2.GT.TCll 

00103 33* COMMON/CTIME/TIME 

OOIOM 34* C0MM0N/CI0/IRCA0,IWRITE,IDIAG 

C0105 35* SW-SWl 

DOIOS 36* VOirVAl 

C0107 37* V02-WA2 

00110 3e* V03 =Wa3 

com 39* ircTlME. 6T.7C1. AND. TIME, LT. TC215U=ABSf5Hl-l. l 

00113 40* lFfSv.GT.0.5»V0l=VBl 

r.0115 41* IF ISW.GT.0.5IV02=VB2 

CC117 42* iriSW.CT.0.5IV03=VB3 

G0121 43* return 

CO 122 44* END 


COOOOO 
COOOOO 
000000 
COOOOO 
CO GOOD 
CCQOOC 
CDOQQl 
DO COO 3 
0C0GD5 
000007 
000031 
000037 
CCJ045 
C00DS3 
000076 



ORIGINAL PAGE IS 
QE POOR QUALITY 


7.37 FOUR POLE SWITCH 


sz 


pOOB- 



SEE SW FOR SWITCH CONTROL LOGIC 


Inputs 


Parameter/Por t 

Descr i ot ion 

VAl 

i nput to swi tch l 

VA2 

Input to switch 2 

VA3 

1 nput to swi tch 3 

VA4 

1 nput to swi tch 4 

VBl 

Input to switch 1 

VB2 

Input to switch 2 

VB3 

1 nput to swi tch 3 

VB4 

1 nput to swi tch 4 

SWl 

Switch control parameter 

TCI 

Time for first switching (hours) 

TC2 

Time for second switching (hours) 

Outputs 


Variable/Pprt 


V01 

Output from switch 1 

V02 

Output from switch 2 

V03 

Output from switch 3 

V04 

Output from swi tch 4 

BCS 40180-2 
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BCS 40180-2 




SUPROUTlWt SZ ENTRY POIM7 000073 

STORAGE USED C ODE 1 1 J 0007 12j DATAfDl 000011; BLANK COMMON T2 I DOOCOO .^,i> J 
COMHOII P-LOCKS ' 

0003 CTIMC 000001 

0004 CIO 000003 

external REFEREEJCES CBLOCK, MAHEl ^ 

OOGS HERR3S 

storage ASSIGNMEhT IBLOCK, type, RELATIVE LOCATION, MAMEI 

0004 000002 TnlAG 0000 000003 INJPS 0004 000000 tread 0004 OOODDl IWRITE 0 CCO R DODOOQ SN 

0003 R C0CDOO TIME 


00100 

!♦ 

CS2 






COOOOO 

0010 1 

2* 


subroutine SZ (V0l,V02 ,V03,V04 

,VA1 ,VA2 ,VA3 

,VA<i,Vei\vB2 

,Vb3,VB4 

' » 

ooooco 

00101 

3* 


1 SW1,TC1,7C21 





DDDOOD 

CO 101 

4* 

C 






DOO0OC 

00101 

S* 

c 

PURPOSE - TO PROVIDE A SU3TCH COMPONENT FOR 

FOUR VARIABLES 


CO0OOO 

CDXCl 

6* 

c 






ODOOOD 

roici 

7* 

c 






COOOOC 

CDlOl 

«♦ 

c 

METHOD - SEE CODINS 





COOOOO 

CO 131 

9* 

c 






COQDOO 

C-DlOl 

1C* 

c 






cooaoc 

CDIQI 

11* 

c 

WRITTEN BY - ADAM LLOYD 

LATEST 

REVISION 

NOV 75 


COOOOO 

C-OlOl 

12* 

c 






OODDDO 

00101 

13* 

c 






coccoc 

r.oiDi 

14* 

c 

limitations - NOT MORE THAN TWO 

SWITCHINGS 

AT TIMES TCI 

AND TC2 

000000 

GDlOl 

15* 

c 






COOOOO 

CClOl 

It* 

c 






ODOOOC 

CClOl 

17* 

c 

IMPUT/OUIPUT LIST 





COOOOO 

DO 101 

18* 

c 






COOOOO 

0O1O1 

19* 

c 

VOl OUTPUT VARIABLE NO 1 


ANY 

OUTPUT 

VAR 

COOOOO 

coioi 

20* 

c 

V02 OUTPUT VARIABLE NO 2 


ANY 

OUTPUT 

VAR 

OoCOGG 

DCIOl 

21* 

c 

V03 OUTPUT VARIAFLE NO 3 


ANY 

OUTPUT 

VAR 

cooroc 

00101 

22* 

c 

V04 OUTPUT variable NO 4 


ANY 

OUTPUT 

VAR 

ooocoo 

EClOl 

23* 

c 

VAl INPUT variable mo A1 


AMT 

INPUT 

VAR 

cnoDoc 

EOlOl 

24 * 

c 

YA2 INPUT variable NO A2 


Any 

INPUT 

VAR 

CDD30C 

COIDI 

2E* 

c 

VA3 INPUT VARIABLE MO A3 


ANY 

INPUT 

VAR 

COOOOO 

OC 10 1 

26* 

c 

VA4 INPUT VARIABLE MO A4 


ANY 

INPUT 

VAR 

ccoeoo 

CDlOl 

27* 

c 

VEl INPUT VARIABLE NO HI 


ANY 

INPUT 

VAR 

DOCCDD 

■rf n-i -rr.t. 



..r. 

■ V.R7 NO , B2 

. . .... 

ANY 

INPUT 

VAR 

COOOOO 


ISI 



eoioi 

JO* 

c 

V&4 I»PUT VAfltABLE MO B* #Kt 

IHPUT 

V4R 

COCCPD 

aagi 

jl* 

C 

£«1 SWITCH COHTKCL IHITlAt VALVE 

IMPUT 

P4P4H 

CGSCCO 

DOlOi 

12 * 

c 

=i:. Vq-ve- 



scocao 

so tot 

Si* 

c 

=S. VD=VA 



cscocc 

BDIGI 

S*}* 

c 

TCI TIKE F0« FIRST SVITCM SECS 

IHPOT 

F*R*H 

CCCr,cc 

£01Ql 

35* 

c 

Tc2 tike for SECOMD SWITCH SECS 

IMPUT 

F4HAK 

CCCESO 

■roisi 

25* 

c 

ITC2>-CT.TC11 



cccccc 

so IS ^ 

27* 


COKKOH/CTIKr/TII'E 



^ r*-^- ^ f* f* 
fe. i.' *v » «M 

'X1S« 

St* 


COHHOWACIO/iPEADtlWRITE ,TDI*G 



CGCfGC 

££i05 

39* 


s«=swi 




seise. 

40* 


if tllWE . CT*.TC1 , /iWO * tike •LT . TC215«=JiB5 tSUl-l * J 



COOCDl 

00110 

41* 


voi-wii 



C0QC23 

com 

42* 


V02-VT2 



C-DCS2S 

C-G 112 

4 3* 


V0S=V/3 



000227 

0OIJ3 

44 * 


V04='Vfc4 



CD0G31 

COl l«t 

. 45* 


ir (SV.OT.C.5»VOX=V01 



COG023 

S011& 

45* 


If t SW.GI .0,51 V02rVB2 



C0C041 

00120 . 

. 47*. 


IF CSV .01.0*51 VO 3=WS3 



C0CC47 

C0122 

44* 


IF tSV.BT.O*5>Va4=:VB4 



CS025S 

00124 

. 49* 


RETURM 



cccce. 3 

00125 

50* 


EHO 



COG! 11 



N 


7.36 TAPE/ FILE READ 



SIMULATION TIME (T) 



OUTPUT VARIABLE (VAR) 


This component reads a data file containing a single output variable time 
history. The file structure is specified below, and assumes equal increment 
data. Linear interpolation is used to obtain the output value. No more than 
eight TA components are allowed per model. The component Tf is used to sup- 
ply the time input T. The data files must be catalogued using the names Fl, 
F2, or the JCL procedure file XQTANALYSlS modified appropriately. If tape 
data is used, it must be read into permanent storage files in a prior job 
step . 


IflP.MtS 



Parameter/Port 

D.es.<?j:,ip.tittD 

Uni ts 

NST 

Number of records to skip at start 


T 

Simulation time referenced to start of year 

hr 

ITF 

Indicator function: 



0 = no read 

J = read data into Jth array (J<8) 



(start time of simulation-start time of file)/(data 


ncrement x 446) 
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BCS 40i80-2 




Outpu fs 
Var iab I e/Por j- 


Uni fs 


TA 


VAR 

N 

T0 

H 


Description 

Output variable at time T 
Length of file record 

Time of first data value In current record 
Time increment between data values 


hr 

hr 


Record Structure 

1st record = identification header, 28 words 
Nth record (N>1): 448 words 

first word = time of first data value in hours (T0) 
second word = time increment between data values (H) 

J+2 word = data value at time = T0 + (J-l)H 
( J “X , « ■ ■ , 4-4^ ) 

If the useful data ends in the middle of a record, then an end value - .99999 
Is used to signal end of information. 

Calculation Sequence 

If ITF = 0 RETURN 

1) Initialization. (First Pass Only} 

o Read 1st record and write out identification header data and unit 
number. (Error exit to 6)) 

o Read past NST data records. Go to 4) 


BCS 40180-2 
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Ca 1 cu 1 5 1 1 on ■ Sequence Cont . 



2) File location incorrect; use initial value 

o I f T > T0 GO TO 3 ) 

Write d iagnost i c 
VAR=A(1,J) (J=ITF) 

Return 

3) Table interpolation for Output 

o I f T ^ T0 + N ■if H GO TO 4) 

XT(1) = T0 
XT(2) = TiW-H 

VAR = TBLUKT,XT,A(1, J),0,N) 

Return 

4) Read Next Data Record 

If end has been encountered previously go to 5) 

Read next record into array A(*,J). if end encountered, set 
N = last value. (Error exit to 6)) 

TO “ A(1,J) 
h = A(2,J) 

GO TO 3 ) 

5) End of File. Lise last value. 

VAR = AIN, J) 

Write Diagnostic 
Return 

6 ) Read Error Encountered 

Write Diagnostic and STOP 
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401B0-2 


o 

U) 


SUeBOUTlHE Ti ENTRY POINT Q0DJH3 


StORAdE USED CODEfU COC*(03; DATAjai 007132; BLANK COKnONCZl OOODOO 

COMHOU BLOCKS 

00D3 CJMPL 0D00D2 

0DO«i DAT*RO 000700 


eXTCRNAL REFERENCES « BLOCK, NAKEl 

3005 HTRAH 
0006 TBLUI 
0CC7 MUnUS 
0010 IJ03» 

00 U WI02t 
0012 NSTOPt 
3013 >,'ERB3» 


ST0RA6C AS51GWHENT IBLOCK, TTPE, RELATIVE LOCATION, NAHEl 


QDOX 


CC0321 

lOL 

OPOl 


000102 

ICQL 

3 001 


000231 

16 70 

0000 


007035 

20F 

OCOl 


000135 

200L 

0003 


CC70<)6 

3or 

0001 


000176 

3D0L 

0001 


000262 

•iOOL 

0001 


0002A*« 

60L 

0000 


C0706Z 

eor 

flOOO 


007076 

70F 

GCOO 

R 

ODOOOD 

A 

0000 

R 

006760 

B 

DEOC 

1 

007031 

T 

0C33 

1 

COOOOl 

ICNT 

0CC3 

I 

CO 0600 

IKPL 

0000 

T 

00701*1 

INd 

0000 


007121 

IN JP* 

OCOO 

T 

007330 

lUN 

0000 

I 

007027 

J 

OOCD 

I 

007031 

LI 

OEOC 

I 

007033 

H 

0000 

1 

007032 

NO 

0006 

B 

000000 

TP,LU1 

0001 

R 

OOOQOO 

1ENP 

0000 

B 

CD7026 

X 

0000 

R 

00702A 

XT 














00100 

1* 

CTAPE 

OCOO DO 

CO 101 

2* 


SUBR00T7ME TM V AB , KOU T ,70,H ,M ST ,T , I TT » 

OCDDDO 

CD 101 

2* 

C 


DOOCOO 

CDlOl 

1 * 

C 

purpose read TIME HISTDRT DATA ON STORAGE DEVICE 

ODCCQO 

COlOl 

5* 

C 


COCDOC 

COlOl 

6* 

C 


OCOPCO 

DO 101 

7* 

c 

METHOD USE HTR*N SEOENTIAL BLOCK BEAD FROM M*S5 STORAGE 

CD COO 0 

aojoi 

8* 

c 

INTO CORE. LINEAR I MTERPOL A T TON IS USED TO OBTAIN 

00 CO 00 

30101 

9* 

c 

VALUE AT SprciriED TIME T. 

oopcoo 

i‘0101 

10* 

c 


CDCiPOG 

COlOl 

11 * 

c 

HBITTEM ET A.W. UARREH JUNE 1977 

DO POO E 

CETOl 

12* 

c 


00000 0 

CCIJI 

13* 

c 

CALL SEQUENCE 

CO 0000 

COlOl 

11 + 

c 

OUTPUTS 

CO COO 0 

CCIDl 

15* 

c 

VAB - OUTPUT variable AT TIME T 

300003 

CDIOl 

16 + 

c 

NOUT - LENGTH OE DATA BtOCIC LAST BEAD 

rococo 

COlOl 

17* 

c 

TO - TIME OF FIRST DATA VALUE IN CORE, HR 

00 coo c 

CO ID I 

1 I* 

c 

H - TIME IHCRFMEM7 EE7UEEN DATA VALUES, HR 

OCOOGQ 

'lilQl 

l-’i 

c 

INPUTS 

CO coco 
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i 


noioi 

20* 

C 


NST - NUMBER OF BLOCKS TO SKIP AT START 

000000 

COlOl 

21* 

C 


T - SIMULATION TIME REFERE 

NCEO TO START OF YEAR, HR 

coocoo 

COlOl 

22* 

c 


ITF - INDICATOR FoR LOGICAL 

UNIT TO READ 

DDOODO 

COlOl 

23* 

c 


= 0 NO BEAD 


COCOQO 

no 101 

24* 

c 


1,...B FOR LOGICAL 

UNITS 11, ... 18, RESP. 

CO 00 00 

no 101 

25* 

c 




DOOCOC 

0C103 

26* 



DIMENSION AI446,e>.BI28),lND<e),XT(2l 


COGOOC 

□ E1Q<I 

27* 



COMMON /CIMPL/ IMPL.ICNI /DATARD/ TrMP(446> 

000000 

C0105 

28* 



REAL NST.NOUT.ITF 


CDOOOO 

DC106 

29* 



DATA X/. 99999/ 


DO CO DO 

noiDb 

3C* 

c 




COCOOD 

CClOb 

31* 

c 


INITIALIZE AND POSITION THE FILE 

COQOOC 

DO 106 

32* 

c 




OCOCQO 

cono 

33* 



VAR=X 


000000 

com 

3 4* 



J=1TF*.0DI 


CCCOOl 

00112 

35* 



irtJ.EO.OI RETURN 


C00012 

GOllM 

36* 



IUN= J»10 


GOUCIT 

D0115 

37* 



1F(IHPL.GT.D1 60 TO 100 


CQ0G22 

C0115 

36* 

c 




000022 

C0117 

39* 



CALL NTRANdUNilOi 


000026 

C-0120 

40* 



CALL N7RAN(IUNt2.28,B,Llt22) 


000032 

D0121 

41* 



IFCLl.LT.OIGO TO 10 


000042 

00125 

42* 



WPITEtb.ZCl lUN.B 


00004 5 

00127 

43* 


20 

FORMAT! 1HO,30HXOENTIFICATIOM HEADER FOR 

UN1T,13/(1H .1DA6)) 

CQ0rS6 

00133 

44* 



Hr= NST*16.*.001 


CC0C56 

00131 

45* 



CALL NTRaNC IUN.6.N0.22) 


CC007Q 

00132 

46* 



1HDIJ13 LI 


C00076 

00133 

47* 



GO TO 300 


000100 

00133 

46* 

c 




COOIUO 

00133 

49* 

c 


TOO MANY BLOCKS READ 


DCOIOD 

00133 

50* 

c 




CDOIOC 

C013M 

51* 


100 

irtI.GE.70l 60 10 2C0 


C00102 

00136 

52* 



VAR= Atl.JI 


0P0105 

DD137 

53* 



IF (IHPL.EQ.21 HRITE(6.30> VAB ,IUN 


CDOll 1 

001««*» 

54* 


30 

rORHATtlHOt 39HF1LE DATA OUT OF RANGE. INITIAL VALUE= « 

00C123 

0014M 

55* 



1 F12.5t9H ON UNIT, 14) 


000123 

coms 

56* 



IF tIMPL.E0.2UCNT = ICNT*l 


00D123 

C'01<t7 

57* 



RETURN 


D0D131 

com? 

5 £♦ 

c 




□00131 

com? 

59* 

c 


TABLE INTERPOLATION FOR OUTPUT 

DCD131 

oom7 

60* 

c 




C00131 

CO 150 

61* 


2 00 

IT (T.GE.TO*NOUI*HI GO 70 300 


000135 

00152 

62* 



XTtl )= TO 


C0D142 

00153 

63* 



X7t2)= TO*H 


D00144 

0015<4 

64* 



N=NOUT 


000146 

00155 

65* 



VAR = TBlUHT,XT,A ei,J7,0,N) 


C00155 

CD156 

66* 



RETURN 


C00172 

00156 

67* 

c 




000172 

00156 

6 1* 

c 


READ NEXT DATA BLOCK 


CQC172 

00156 

69* 

c 




DCC172 

C0157 

70* 


3 CO 

IFflNPt J) .EQ.OIGO TO 400 


C0D176 

DO 161 

71* 



CALL NTRAN(1UH,2,44B,TEMP,IH0 (Jl ,22) 


CCCZOG 

00162 

72* 



IF( iNtU J) .LT.O)GO TO 10 


C00212 

00164 

73* 



T0= TFKP { 1 ) 


0DC220 

00165 

74* 



Hr TEMP(2) 


000222 

CO 165 

75* 

c 




rn n 5 
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00171 

77* 



IFtTEHPn*2».EQ.XIG0 TO 60 

000231 

00173 

78* 


50 

* »I , Jl= TEMP(1*21 

00C234 

00175 

79* 



l;l«l 

000240 

CO 176 

80* 


60 

NCUT= r-1 

00024*4 

3Q177 

61 * 



ird . LT.‘*87)IN0CJ1=0 

LD07SQ 

OOCOl 

8 2* 



60 TO 200 

00C260 

0C2Q1 

8 3* 

C 



C0D260 

00201 

8*1* 

c 


END OF USEFUL 0*Tft REACHED 

L0C260 

C02D1 

8 5* 

c 


1.99999 DATA VALUE encountered. » 

000260 

bOl'Dl 

8 t* 

c 



CDC26C 

00202 

87* 


*» no 

N= NCUT 

00U262 

0 020 3 

88* 



VARrftiN, J) 

000270 

0 020*4 

89* 



IFflMPL.EQ.2IWRITE(6,801VAR,IUN 

C0C275 

00211 

90* 


80 

FORKATUHO.AlHTIHE POINT PAST TABLE RANGE. LAST VALUE= t 

DCU307 

0G211 

91* 



1 F12.5.9H ON UNIT,!*) I 

0DD307 

00212 

92* 



irilHPL.E0.2lICNT-TCNT*l 

C00307 

0021*1 

93* 



RETURN 

00C315 

002m 

9<«* 

c 



000315 

0021*1 

95* 

c 


READ ERROR OR END OF FILE REACHED 

000315 

0021<» 

9 6* 

c 



GCC315 

00215 

97* 


10 

WRITEI6,90IIUN 

000321 

00220 

98* 


90 

F0RMATUH0,33HREA0 ERROR OR END OF -FILE ON UNIT, 141 

000326 

00221 

99* 



STOP 

0D0326 

0C222 

IDO* 



END a SUBROUTINE TA 

C0C402 


—I 
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7.39 SECOND ORDER TRANSFER FUNCTION 



FIN 

Zis-f Z0 

FO 


S^ + PlS + 1’0 



Innufs 


Paramefer/Por f 

Description 

FIN 

Input quantity 

Z0 

Numerator coefficient 

Z1 

Numerator coefficient 

P0 

Denojainator coefficient 

Pi 

Denominator coefficient 

Oufputs 


Variabl e/Porf 


XI 

Intermediate state 

F0 

Output quantity (state) 

Calculation Sequence 


XI - IN - 

F0 XI + Zi-Kf IN - Pl-5ff0 


NOTE: d.c. gain = ; inflnit-e frequency gain = 0. 


^2 ' BCS 4Q18Q-2 



r> 

'yi 



y-* 

O 

t 

r-2 


%njrBmmiBE Tf iCjfirsy b&xkt pbpszt 

mw -tmtm msozst' cxtaMSJ maam^ gi_A«K cmnmtzx msms' 

tmnGH fmGBS 

mon €,x© moms’ ... 

mUBM$.L »rf£Hmc£5 
oac-n 

■ssout-sz. .isstoHP’cm mwm* rwZf sctiTisre lccatsom,- )t*kej 

aps2- cpomz zttiAP oms aonocs xmjbs . scss gs.doss x^mx 0002 00000.1 xv^xtr 


*y< 


caipp' 

u 

ctr 

ocias 

z* 


0&ZO1 

2-T 

c 

t02M 

B*- 

c 

0&ioz 

0* 

c 

00i0i 

£* 

t 

0O10i. 

Z* 

t 

0Ct0l 

«-*■ 

:c 

00ZSt 

74' 

0 

00$m 

104 

c 

C0t0t 

rs4 

c 

0Ci0t . 

3 Z4 

€ 

CClCl 

134 

t 

00tot 

1^4 

C 

00l0t 

■}0* 

c 

00tCZ 

U4 

c 

00 %m 

IT* 

t 

00tCX- 

■M* 

c 

PC'iPi 

174 

€ 

rc'isi 

.204 

c 

0C101 

. 21* 

0 

00tCl 

22* 

c 

C0iot 

23* 

c 

00i0t 

27* 

C 

00i0l 

20* 

C 

'lt0 jt0Z‘ 

20* 

c 

Z0i0i 

27* 

0 

0C101 

27* 

0 

00%0t 

29* 

t 

00i01 . 

304- 

t . 


31* . 

c 


smmmZ’m. tr tx i ., ixi , rs ^rsoor .,iro , r i».»- zo-.,- z 1 ,po> j 

- w simukfz k %tmm omzz xzm%rtz rmcxioH mm 
rmss &%0zi» mmcBArrM 

TO Zi*S ■* ZD 

rZM 2 

5 -*' '?l*f%A90 

MZTfiOD , - StiLT EXTLkMkrOZf 
zimsATmts- - fK&Mt 

sr - k0.tiB ttoxD t.k7zsr pzxx&zon »ax 7S 

tupmmrtpm Lts-% 


GCS0OC 


00C000 

0ZZCC0 

CCC00C 

catccc 


000001 

00U0C1 

0/Pt001 


pr.DtPU 


000000 

f" 

0C0000~ 

000000 

000000 


Z;i 

XJCf/T 

X*X 

TO 

fCO'&Z 

ITQ 

r%n 

zs 

zi 


stati vmikBtz 

ixs 

■mwm 5zJfr 


ptAit HmikBti. 'DZPvnivtz 

jtsj.y 

DUlPm: 07 ns 


%m TOP. A Top ccmnst 

, — 

PPCOPA* TAP 


jpmirm rmrcrmn ojipm 

im 

£VlPUr 0TATZ 


ipmptgp rmiCTiaff mtpuj otnvf* 

Am 

CVtPJT 0TAU 

V iJ4 ^ jf 

tmtopirnp ccntpou 


2P00PAH 7AU 

tcci.^c 

Tomsfip f motion ivpot 

ms 

TKpm VAP 


CPZfr jC IfH J 

mi 

fkrVT . TAP 


P A . CCTTflClini 

mi 

mpftl HAP 

V ^ m 
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OOJOi 

32* 

C 

PO OEKOMlKATOP COtfFICirNT 

1/SEC2 

INPUT 

VAR 

COOODD 

flClOl 

33* 

C 

PI DEH0MINA70R COEFFICIEMT 

1/SEC 

INPUT 

VAR 

CDOODO 

00103 

3H* 


COM«OM/C10/IRrAD,IWRI7C,10r*S 




COGCCC 

00101 

35* 


lFtlXl.NE.a)X100T-2D*FlM-PQ*FO 




CO 00 DO 

£?C106 

36* 


ir(lF0.NC.0»F0D0T=Xl*2l*FIN-Pl*F0 




C00007 

COHO 

37* 


RETURN 




0D0C20 

30111 

3a* 


END 




000034 



v'onvortii simulation running tlmo in hours to timo totoronooO to stoH ot 
vtov and start ot v\*ooK, and ovjmfHitos nurahor ot dviys and wooKs olapsod sinoo 
stai t ot » 




tnltta! timo of simuhaHon ttom start of yoar 
Running timo Unput via coiniton/CTiiVttn 


mM 

tins 

i\fs 


Ttiita sinco start of wooK hrs 
Tlnto stnoo stat‘t of day hrs 
Numbor of wooks 


1>Y 


Numbor of days 


m 

Numbor of iiKanths tappro^d) 


T 

Running tlvno f rota start of year 

hrs 

m 

Day of weak 




T a MW(TO-rTlM,31tiO) 
m « T/lotm 
DY - T/M’M 
(V\Y a t/BOH 


TW Ai^tT*lC>3J 
TO * 

DW * 


BC$ 401BO-? 






40180-2 


subroutine ti 


ENTRY POINT 000122 


STORAGr USED CODEril 000155? ORTAIOI 000031; BUNK COnnOHr2l COOOOO 
COMMON BLOCKS 
0003 CTIME 000001 

EXTERNAL RFFERCNCES CBLOCK. NAME I 
QGOR NERR31 


STORAGE ASSIGNMENT IBLOCK, TYPE, RELATIVE LOCATIOVt NAME) 

0000 000013 INJPS OCCO I 000002 MY 0000 I -000000 NO 


0000 I 000001 NN 


0003 R 000000 TINE 


COlOO 

1* 

CTI 






000030 

CDlOl 

2* 


SUBROUTINE 

TI (T ,T0 ,TM ,0U ,DY ,W Y, AMT, TO 1 




COOOOO 

CD 101 

z* 

C 






CCC30G 

OQIDI 

9* ' 

C 

PURPOSE CONVERT SIMULATION TIME TO OAILT, 

WEEKLY, monthly 

UNITS 


CCCDDC 

coiei 

5* 

C 






CDCOOO 

00101 

6* 

c 

HRI7TEN BY A 

.U. UARREN 

VERSION 1, 

MARCH 3 1977 

DOGCCO 

eoiQi 

1* 

c 






COOCOO 

CO 101 

6* 

c 

CALL SEOUENCE 





CD030C 

C-0101 

9* 

c 

T 

- SIMULATION TIME FROM START OF 

YEAR, HR 

OUTPUT 

VAR. 

CCCOOC 

00101 

10* 

c 

ID 

- TIME OF DAY, HR 


OUTPUT 

V AR . 

OOCOOC 

00101 

11* 

c 

TU 

- TIME SINCE start OF WEEK, HR 


OUTPUT 

VAR. 

CDOGOO 

80 101 

12* 

c 

DU 

- day or UEEK 


OUTPUT 

VAR. 

COCCOO 

COlOl 

13* 

c 

DY 

“ DAY OF year 


OUTPUT 

VAR. 

eoGcoc 

COlOl 

m* 

c 

UY 

- WEEK OF YEAR 


OUTPUT 

VAR. 

OCCOOD 

OOIDI 

15* 

c 

AMY 

- MONTH OF YEAR 1 APPROX. » 


OUTPUT 

VAR. 

CO C 00 0 

00101 

16* 

c 

TO 

- SIMULATION INITIAL TIME FROM 

START OF YEAR, 

HR INPUT PABM 

CO DO 00 


30101 

00103 

OGIDH 

00105 

DDIDG 

30107 

CC^llO 

GDlll 

C01I2 

CD113 

ODim 

3DU5 

00116 

G01I6 

00117 


17* 

le* 

19* 
20 * 
21 * 
22 * 
23* 
29* 
2 5* 
26* 
27* 
2f * 
29* 
30* 
31* 


COMMON / CTIME f TIME 
T = AMOOnO ♦ TIME, 6760.1 
TO = AM00<T,29.) 

TW = AMDDCT.IGB.) 

NO - TU/2H. *1.001 
DW r NO 

NO = T/2*).* 1.001 
OY = f;o 

HU r T/168.*l .001 
UY = HU 

HY = T/73D. ■*1.001 
AMY - n't 


COOOOO 
OQODDO 
COCOCO 
000007 
CCCOl 5 
C0C023 
0OC039 
CO on 3 7 
C00C50 
C0CC53 
0D03GS 
C0007C 
CQ0102 
000102 
ECC105 


RETllftH 




7.41 thermal load 


AMBIENT TEMPERATURE (TA) 
POWER DELIVERED CLD) 
TIME OF DAY (TD) 


Thermal load is computed as a user specified function of ambient temperature 
and time of day. The actual load delivered is either the load requested or 
the maximum discharge rate of the thermal storage chamber. The value of the 
thermal energy delivered and % of total load actually delivered are also 
computed. 



RE = TL0(TA)-5i-TWT(TD)^NC 

where 

TL0 = Thermal load versus temperature table 
TWT = Daily profile weighting function 
NC = Normalizing constant 
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TL 


Tab! es 

P,gsgrJjLt.f.gn 

Uolts 

TLO 

Thermal load versus ambienf temperature 

kw 

■nvT 

Dally profile weighting function (tabular 
with time of day) 


Inout-s 

Paramet'er/Port 

TA 

Ambient temperature 

°F 

LD 

Power del Ivered 

kw 

TO 

Time of day (0-24) 

h 

VE 

Value of thermal energy 

$/kwh 

NC 

Normalizing constant 


OutDU ^S 

Var lab 1 G/Pori" 

RE 

Load request 

kw 

VDE 

Total value of energy delivered (state) 

$ 


Stat 1 st I Os 



PC 

Cumulative percent of load delivered 

- 

SLD 

Total energy de I Ivered 

kwh 

SRE 

Total energy requested 

kwh 


BCS 4Q18Q-2 


309 


CalculaHon Sequence 


TL 


1) Compute load request 

RE = TLO(TA|-«-TWT(TD)-«NC 

2) Value of energy dynamics 

« 

VDE = LDWE 

31 Statistics 

SLD = SLD+LD^A/2 
SRE = SRE+RE-«‘A/2 
PC = 100. * SLD /SRE 

Where A = integration step size 


310 
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BCS 40180-2 


SUBROUTIKC TL ENTRY POINT 000173 


ST0RA6C USED CODEIl) 000251; OATAfOl 000033; BLANK C0NN0NC2 I 000000 

COHKON BLOCKS 

0003 CIHPL COOOOl 
OOOA CSlKUL iOOOClO 

0005 CTIHE 000001 

0006 COST 000006 


EXTERNAL REFERENCES IBLOCR, NAHEI 

0007 T6LU1 
0010 NERR3S 


STORAGE ASSIGNMENT {BLOCK, TYPE, RELATIVE LOCATION, NAHEI 


3001 

0006 

R 

COOOIN 

CCOOOS 

lOOL 

CRE 

0006 

0006 

R 

030000 

000003 

cc 

cv 

3006 

0004 

R 

000004 

000000 

CLO 

OUM 

0006 

0003 

1 

OOCOOl 

000000 

CM 

INRL 

0CC6 

0300 

000002 

000012 

0000 

I 

cccooo 

ITL 

OCOO 

1 

000001 

ITW 

0307 

R 

000000 

TBLUl 

0005 

R 

000000 

TIME 

0CC4 R 

000006 

3000 

R 

C00003 

tin Cl 

0000 

R 

00000!! 

TLO 

0004 

R 

CaODOT 

TMAX 

0000 

R 

000002 

tnaxi 

0000 R 

000005 


00100 

14 

ctl 


COQQOl 

CO 101 

2* 


SUBROUTINE TL ITLO .TWT ,VOE,DVO . IVD.RE ,PC , SLO, SRC , TA.LO. TO ,VE ,NC 1 

ODOOOl 

CSIQI 

34 

c 


OOOOCl 

r.Qioi 

44 

c 

PURPOSE COMPUTE ENERGY RESPONSE FROM A THERMAL LOAD REQUEST 

OQOOQl 

GClOl 

54 

C 


CiCCOQl 

CO 101 

64 

c 

METHOD ENERGY DELIVERED IS EQUAL TO THE LOAD REQUESTED OR 

QCDOOl 

CClOl 

74 

c 


30UQ01 

00101 

«• 

c 

THE MAXIMUM DISCHARGE RATE. 

OCOGCl 

CClOl 

9* 

c 


QGOCQl 

coioi 

1G4 

c 

WRITTEN BY F. 0. MAHONY VERSION 1, APRIL 1 1977 

OOODOl 

3D101 

114 

C 


GOCDOl 

COICI 

1?4 

c 

CALL SCOUENCE 

COCQDl 

COlOl 

134 

c 

TABLES 

COODOl 

CDlOl 

144 

c 

TLO - thermal LOAD AS FUNCTION OF AMBIENT TEMPERATURE 

ODOOOl 

COlOl 

154 

c 

TWT - DAILY PROFILE WEIGHTING FUNCTION VS TIME OF DAY 

OOCCOl 

r.oici 

164 

c 


COOOOl 

CDlOl 

174 

c 

OUTPUTS 

COOOOl 

00101 

184 

c 

VDE - VALUE OF ENERGY DELIVERED CSTATEl, 4 

COOOOl 

r.oioi 

19* 

C 

OVD - DERIVATIVE OF VDE 

COOOOl 

COlOl 

204 

C 

IVD - INDICATOR FOR VDE 

CCUOOl 

OClOl 

214 

c 

RE - LOAD REOUFST, KW 

OOCiOCl 

COlOl 

224 

C 

PC - CUMULATIVE PERCENT OF LOAD DELIVERED 

000001 

DOICI 

23* 

C 

SLD - TOTAL ENERGY DELIVERED, KWH 

CODCOl 

fiOlCl 

244 

C 

SRE - TOTAL ENERGY REQUESTED, KWH 

ropoDi 


CO 

INJP» 

TINC 

TU 
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K3 


03 

O 

LO 

-!:>• 

O 

CO 

0 

1 

PO 


OOiOl 

25* 

C 


COCOOl 

CO 101 

26* 

C 

INPUTS 

CDOOOl 

CO 101 

27* 

c 

T* - AMBIENT TEMPERATURE, DEG F 

00 0001 

COlOl 

2E* 

c 

LD - POWER DELIVERED, KM 

3D 0001 

COICI 

29* 

c 

TO - TIME OF day, HR 

COCOO 1 

00101 

30* 

c 

VE - VALUE OF thermal ENERGY, */KUH 

CD 000 1 

COlOl 

31* 

c 

NC - NORMALIZING CONSTANT FOR LOAD REOUE ST 

CQDOOl 

COlOl 

32* 

c 


COOODI 

CC10 3 

33* 


DIMENSION TL0(3»,TWTI5> 

uOOCD 1 

0C10<i 

31* 


COMMON/CImPL/IMPL /CSIMUL/ DUMI61 ,tinc,thax/ctime/time 

00000 I 

DO IQS 

35* 


COHMON/COST /CC ,CM ,C0 ,C V,CLO, CRE 

COOCOl 

C0106 

36* 


real LO.NC 

CD 000 1 

0D106 

37* 

c 


CCOOOl 

00107 

36* 


ITL=TL0I21 

roccoi 

COHO 

39* 


ITU=rTMTI2l 

ooccio 

com 

<|C* 


IFIIHPL.GT.OIGO TO 100 

000017 

com 

<ll« 

' c 


000017 

com 

•12* 

c 


C00017 

00113 

••3* 


TMAX1=THAX*D. 99999 

CD0322 

DDll** 



TINC1=HNC*.5 

C00C25 

CO 1 1 <1 

%5* 

c 


C0Q025 

00115 

*6* 


PC =0.0 

C00D3D 

00116 

*7* 


SLD=0.0 

00CC31 

D0117 

••8* 


SRE=0.0 

G00C32 

C0H7 

•19* 

c 


000C32 

00117 

50* 

c 


000032 

00117 

51* 

c 

COMPUTE LOAO ReOUEST 

C00C32 

00117 

52* 

c 


C0C032 

00120 

53* 

ICO 

TLD=TeLUltTA,TLOr«l l,TL0fITL*8 1,1,-ITLI 

00Q03<« 

C0121 

5*t* 


TMrTBLUKTD.TUTJI » ,TUTHTU*<»» ,1,-1TW» 

D0C0S3 

CD121 

55* 

c 


000053 

CO 122 

56* 


RE =TLD*TU*HC 

DOQ073 

GO 122 

57* 

c 


CD0073 

C0122 

58* 

c 

VALUE or ENERGY 

C0C073 

CO 122 

59* 

c 


C00D73 

00123 

6D* 


IFIIVD.NE*C)OVD=LD*VE 

000076 

00123 

61* 

c 


CCC076 

00125 

62* 


ifhmpl.le.hreturm 

0001 0 3 

C0125 

63* 

c 


DCC103 

00125 

6«t* 

c 

PERFORMANCE STATISTICS 

□00103 

CO 125 

65* 

c 


CC0103 

00127 

66* 


SLD=SL0*LD*TINC1 

DOCll 5 

00130 

67* 


SRE=SRE*RE*T1NC1 

000120 

DO 130 

68* 

c 


C00120 

00131 

69* 


irtSRE.GT.0.0)PC=100,0*SLD/SRE 

C0C12R 

00131 

70* 

c 


00012H 

C0133 

71* 


IFCTIME.lt, TMAX l JRETURN 

DO 01 3 3 

00133 

72* 

c 


C0G133 

00135 

73* 


CV=CV4V0E 

Cn,ciR2 

00136 

7«i* 


CL0=CLD4SLD-LD*TINC1 

OOC1R5 

DO 137 

75* 


CRC= CKE4 SRE-RE*TINCI 

reel 5 1 

UC137 

76* 

c 


000151 

oono 

7 7* 


RETURN 

CDG15 7 

DOim 

7 8* 


END 

C0D25C 


7.42 AMBIENT TEMPERATURE 


TP 


^ANBIENT TEMPERATURE (TA2) 


This component is very similar to the wind component. Ambient temperature 
is output either from user suppiied time histories on storage files or by 
generating a set of random numbers with user specified random variations. 

If user supplied profiles are available^ then the temperatures are genera- 
ted from the following equation: 

TA2 = [PD(TD) +CN( t) ] *PY{WY)/M0 

where PD and PY are the user supplied daily and weekly profiles, TD and WY 
are the time of the day and week of the year, CN is a colored noise term 
and AftO is the average value of PY: 

M0 = ^ E PY( j) 


RECORDED TEMP (T^ 

TEMPERATURE __ 
PROFILES (PD,PY) 

TIME OF DAY (TD)“” 
WEEK OF YEAR (WYI_ 
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TP 

Tables Description Uni ts 

PD Daily profile versus TD °F 

PY Yearly profile versus WY arbitrary 


Inputs 




Parameter /Port 




TA 1 

Ambient temperature 

data file 


TD 

Time of day 


hr 

WY 

Week of the year 


- 

CT 

Correlation time of 

colored noise 

hr 

m 

Mean temperature of 

colored noise 

°F 

STD 

Standard deviation i 

of colored noise 

°F 


Outputs 
Var iab I e/Port 


CN 

TA 2 

AV 

MO 

TIM 


Colored noise sample 

Ambient temperature 

Mean of dally temperature 

Mean of yearly profile 

Last time a random sample was generated 



hr 
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£^Li£iiJ, a.t..lon Sequoiice 


.1) InltlaUxatlon (first pass ohiy) 

Computo AV/ MO, and Initial CN 

AV s MN PD(J) 

Chock for data file Input 
If TAl .99909 go to 3) 

TA2 a TAl 
Roturn 

31 Gone r a to colorod no I so samp I o CN 
if TIME a TIM RETURN 

A a / eXP{«T1NC/CT) CT>0 

\0* CTaO 

whera TiNC - Integration stop stio 
CN a CN '»■ A + W 

Where W is white noise with moan » and 

Standard deviation » STD-st v l-^A” 

TIM n time 

4) Compute Temper a turo 


TA2 (PD { TUI fCN) ->fPY (\W}/M0 
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UJ 

o 


SUBROUTINE TP ENTRY POINT 000265 

STORAGE USED COOEtll 000350; DATAIOI 000D<*<I; BLANK COKHON(2) DOOOOO 

COMMON BLOCKS 

0003 CJMPL DOOOOl 
000*1 CSIHUL C00007 
0305 CTIME 000001 

EXTERNAL REFERENCES (BLOCK. NAHEI 



0006 

RN 

0007 

TbLUI 

0013 

EXP 

oon 

SORT 

0012 

NERR3S 


STORAGE ASSIGNMENT (BLOCK. TYPE, RELATIVE LOCATION, NAHEI 


0001 


000121 

lOL 

0001 


000127 

lOOL 

0001 


000057 

11 7G 

0001 


000102 

127B 

OCOl 


00 0247 

150L 

0000 

R 

coocos 

A 

0000 

R 

DOOOOO 

AX 

0000 

R 

000011 

OTP 

0004 


000000 

OUH 

0000 

I 

000003 

I 

0003 

I 

ocrcoo 

IMPL 

OOCD 


000016 

INJP5 

0000 

r 

00000** 

L 

0000 

I 

OOQQOl 

NO 

0000 

I 

000002 

NY 

0007 

R 

000000 

TBLUI 

0005 

R 

000000 

TIME 

000*< 

R 

000006 

TINC 

0000 

R 

000010 

U 

ocoo 

R 

C00006 

UMN 

0003 

R 

000007 

USD 

0000 

R 

000012 

YTP 














OCIOQ 

1* 

CTP 


000007 

00101 

2* 


Subroutine tp (pd.py.tao. av.xm.timo ,xn, tai, to,uy,ct,xmn,stdi 

CO COO 7 

00101 

34 

C 


CQODOT 

OClOl 

4* 

c 

PURPOSE generate AMBIENT TEMPERATURE FROM DAILY, YEARLY AND RANDOM DATA 

C000D7 

QOlOl 

5* 

c 


000007 

301C1 

6 ♦ 

c 

METHOD COLORED NOISE WITH SPECIFIED FARMS IS ADDED TO A MEAN DAILY 

000007 

COlOl 

74 

c 

PROFILE AND MULTIPLIED BY A YEARLY PROFILE. 

C0G007 

roioi 

84 

c 


COC007 

00101 

94 

c 

WRITTEN BY A.U. WARREN VERSION 1, MARCH 7 1977 

C0C0D7 

COlOl 

1C4 

c 


000007 

COlOl 

114 

c 

CALL SEQUENCE 

000007 

LOlOi 

124 

c 

TABLES 

CD00Q7 

COlOl 

134 

c 

PO “ MEAN DAILY PROFILE, DE6.F 

C00C07 

COIDI 

14 4 

c 

PY - MEAN YEARLY PROFILE, OEG.F 

CO ODD 7 

COlOl 

154 

c 

OUTPUTS 

C0CCD7 

COlOl 

164 

c 

TAO - AMBirNT temperature OUTPUT, OEG.F 

0OC0O7 

CQIDI 

174 

c 

AV - MEAN DAILY TEMPERATURE, 3EG.F 

0D0CD7 

noiDl 

184 

c 

XM - MEAN YEARLY TEMPER ATURE ,OEG .F 

CD0007 

COlOl 

1 54 

c 

TIHO- LAST TIME COLORED NOISE WAS USED, HR 

000007 

nmn i , 

204.. 

c 

XN - COLORED NOISE SAMPLE, OEG.F 

C0CD07 


nocooT 
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O 

tn 


UOlOl 

22* 

C 


INPUTS 




G00D07 

POlOl 

23* 

C 


T*1 - TEMPERATURf: INPUT FROM 0*T* 

FILE.DEG. 

F 

000007 

UOlOI 

24* 

c 


TO - TIKE or DAY, HR 



COuODT 

00101 

25* 

c 


WY - UEEK OF YE»R 11-52) 



cocoa 7 

□ DlOl 

26* 

c 


CT - C0RRCL8TT0N TIME FOR COLORED NOISE, HR 

C0CCQ7 

CClOl 

27* 

c 


XMN - KEAN TEKPERA7URE OF COLORED 

NOISE, OEG.r 

C0C0O7 

CDlOl 

2 8* 

c 


STD - STANDARD DEVIATION OF COLORED NOISE, 

DEG.r 

OOOC07 

DDlOl 

29* 

c 






C00007 

00103 

30* 



DIMENSION Prm ) ,PY (1 ) 




000007 

COlOii 

3 1* 



COMMON/CIMPL/IMPL /CS TMUL /DUH 1 6 ) , TIMC /CTIME/TIME 


000007 

00105 

32* 



DATA /. 99999/ 




C0D0D7 

0C105 

33* 

c 


INITIALIZATION 



CD0D07 

CC105 

34* 

c 






C0D007 

CC107 

35* 



ND=P0(2» 




C00007 

COllQ 

36* 



MY=PY12) 




CC0D16 

OOlll 

37* 



irilKPL.GT.OJ GO TO ID 




00D02S 

00113 

38* 



T1H0:-1. 




00C030 

coim 

39* 



Call rN<xN,AX,sTo,XHN) 




DDD032 

ocim 

40* 

c 






000032 

00115 

41* 



AV = 0. 




00004 0 

C C 1 1 6 

42* 



00 20 1=1, NO 




CDCQ57 

00121 

43* 



L = 3*ND*I 




D0DCS7 

L0122 

4 4* 


20 

AV = AW ♦ POIL) 




CD0C62 

C012M 

45* 



AV = AW/ND *XKN 




00007 1 

0012>i 

46* 

c 






000071 

00125 

47* 



XK=D. 




CO 007 6 

00126 

48* 



00 3C 1=1, NY 




C0D102 

00131 

49* 



L=3*NY«I 




D0D102 

00132 

50* 


30 

XH=XM*PYILI 




000107 

00134 

51* 



XK=XM/NY 




000114 

00134 

52* 

c 


CHECK FOR 

DATA FILE INPUT 


000114 

00134 

S3* 

c 






CQCl 14 

00135 

54* 


10 

IFITAT.EO. .99999) GO TO 100 




000121 

0C137 

55* 



TAO = 7AI 




C00123 

C0140 

56* 



GO TO ISO 




000125 

CC140 

57* 

c 


GENERATE C 

OLOREO NOISE 

sample XN 


CDG12S 

C0140 

58* 

c 






000125 

00141 

59* 


100 

in tiko.eo.tihei go to iso 




000127 

00143 

60* 



A=D. 




000131 

00144 

61* 



inCT.GT.O. 1 A=CXP (-TINC/CT1 




C0D132 

00146 

62* 



HKH = XKN*11.-A) 




C00152 

00147 

63* 



USD = STD*SQRT( 1 .-A*A1 




C0D1S6 

C0I5Q 

64* 



CALL RN(U,AX,USD,UKN) 




000167 

00151 

65* 



XN = A*XN*U 




C0D175 

G0151 

66* 

c 


COMPUTE Ambient temperature 


000175 

CDI51 

67* 

c 






C00175 

D0152 

68* 



DTP z TBLUl CT0,PDC4 ) ,P0t4*ND) 

» 1 ■ “if* 



CDC201 

00153 

69* 



YTP = TBLUl 1UY,PY14 ) ,Py(H*NYI 

tlf-N, . 



CD0220 

CC154 

70* 



TAQ = IOTP ♦ XN)*YTP/ XM 




CDL-237 

00155 

71* 



timo=time 




000244 

00155 

72* 

c 






000244 

C0156 

73* 


150 

RETURN 




C00247 

00157 

74* 



END 




000347 
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7.43 VARIABLE RATIO TRANSMISSION 


INPUT ROTOR SPEED (RSI) 
OUTPUT ROTOR SPEED(RS2) 
POWER (PI) 

INPUT EFFICIENCY (EPI) 
MAX. INPUT POKER CMPU 


This component models a transmission which couples a fixed speed rotor Input 
(or output) to a variable speed rotor output (or Input) component* Power 
losses are modeled as a table lookup depending on gear ratio and Input power. 


GR « gear ratio 

(secondary independent variable) 


Input power (primary Independent variable) 


FIGURE 7.43 Ti^ANSMl SSION MODEL - LOOKUP TABLE 








POWER (P2) 

OUTPUT EFFICIENCY (EF2) 
MAX. OUTPUT POWER (MP2) 
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Tab 1 es 


D,e?£rlRt,j.gn 

Uni ts 

PL0 


Power loss versus input power and gear 
ratio (TABLE DIMENSION = 66 ) 

kw 

1 nouts 




Parameter/Port 



RS 

1 

Input rotor speed 

rpm 

RS 

2 

Output rotor speed 

rpm 

P 

1 

Input power 

kw 

EF 

1 

Input product efficiency 

- 

MP 

1 

Maximum input power 

kw 

CC 


Capital cost/year 

$ 

CM 


Maintenance cost/year 

$ 

QM.tp-y,ts 




Vari. able/ Pori- 



P 

2 

Output power 

kw 

T0 


Output torque 

ft-lb 

PL 


Power loss 

kw 

EF 

2 

Output product efficiency 

- 

MP 

2 

Maximum power output 

kw 
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CalculaHo n Sequence 

If P1<0 or RS1<0 set P2 = T0 = PL = 0 and go to 4) 

1) Determine gear ratio and power terms 

GR RS2/RS1 
PL = PLp(Pl,GR) 

P2 = PI - PL 

2) Determine output torque 

T0 = P27'f737 . 6/ ( RS2^H 2 7T / 60 ) ) 

3) Efficiency and maximum power 

EF2 = EFl-«-(P2/Pl) 

If P2<0, set EF2 = EFl and write Diagnostic 
MP2 = MPl - PL0(MP1,GR J 
MP2<0 O DIAGNOSTIC 

4) Compute Costs 
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SUBROUTINE TR 


ENTRY POINT 000307 


STORAGE USED CODEUI 000374; DAT/UOJ 00D07S; BLANK COWMON{2> QDDODD 
COMMON BLOCKS 

0003 CIHPL 000002 

0004 CTIME 000001 

0005 CSIkUL 000010 

0006 COST 000002 


O S 
>T3P 

Is 


external REFERENCES IBLOCK, NAME) 


0007 

0010 

0011 

0012 


T6LU2 

NUPUS 

N1P2T 

NERR3S 


STORAGE ASSIGNMENT IBLOCK, TYPE* RELATIVE LOCATION* NAME) 


0001 000014 lOL 

3000 R 000006 AMP2 
0003 I 000001 ICNT 
0000 1 OOCOOl NNGR 
UOCO R OCOOOO TMAXl 


0001 
0006 R 
0CQ3 1 
0000 1 


000245 400L 
000000 CCl 
OOOOCO IHPL 
000002 NNPl 


0000 000007 4Q8F 

0006 R 000001 CNI 

0000 000047 INJPS 

0007 R 000000 TBLU2 


0001 00016S 409L 

OCOS OOODOO OUM 
0000 1 000004 MN4 
0004 R 000000 TIME 


0 000 00C02 3 SOfiE 

0000 R 000005 GR 
Oqqo 1 000003 M4 
OCOS R C0G007 THAX 


00100 

1* 

CTR 


C00003 

COIDI 

2 * 


SUBROUTINE TR(PL0,P2*T0,PL,EF2,MP2,RS1,RS2,P1,EF1 ,MP1,CC,(;m) 

000003 

COlOl 

34 

C' 


C00003 

00101 

44 

c 

PURPOSE TRANSMISSION MODEL 

CD0003 

ooiot 

5* 

c 


CD0003 

00101 

64 

c 

METHOD OUTPUT POWER AND TORQUE COMPUTED FROM 

C00003 

00101 

74 

c 

INPUT AND OUTPUT ROTOR SPEEDS. POUER 

GOD003 

00101 

64 

c 

LOSS MODELED BY TABLE LOOKUP DEPENDING 

GD0003 

OCICI 

94 

c 

ON GEAR RATIO AND INPUT POWER 

000003 

00101 

104 

c 


00 COO 3 

00101 

114 

c 

WRITTEN BY Y.K.CHAN VERSION l.JUNE 17,I97T 

C00D03 

00101 

124 

c 


00 000 3 

00101 

134 

c 

CALL SEQUENCE 

G000D3 

00 101 

144 

c 

TABLES 

000003 

COlOl 

154 

c 

PLO -POWER LOSS VERSUS INPUT POWER AND GEAR RATIO ,KW 

C00003 

noioi 

164 

c 

OUTPUTS 

000003 

00101 

174 

c 

P2 -OUTPUT POWER »KW 

CD0GO3 

OOlOl 

1E4 

c 

TO -OUTPUT TORQUE, FT-LB 

CCGQG3 

OClOl 

194 

c 

PL -POWER LOSS.KW 

CDD003 

CClOl 

204 

c 

EF2 -OUTPUT PRODUCT EFFICIENCY 

CQ0DD3 

00101 

214 

c 

HP2 -MAXIMUM POWER OUTPUT, KW 

000003 
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aoioi 
CO 101 
00101 
00101 
coici 

DOlOl 
COlOl 
00101 
00101 
00103 
00103 
001 OM 
CO 105 
C0105 
00106 
CO 110 
com 
00112 
00113 
00 im 
cons 
00116 
coils 
00116 
00116 
00117 
00120 
00121 
C0122 
00123 
C012H 
C0126 
DD127 
00131 
DO 132 
00133 
00133 
00133 

00133 

00134 
0C13U 
C013H 
00134 
C0135 
00136 
r0140 
0C141 
C0146 
00146 
GO 147 
D0151 

00152 
C0152 

00153 

00153 

00154 
C0156 


22 >* 

C 


INPUTS 

23* 

c 


RSI -INPUT ROTOR SPEED, RPM 

24* 

c 


RS2 -OUTPUT ROTOR SPEED, RPN 

2S* 

c 


Pi -INPUT POWER, KW 

26* 

c 


EEl -INPUT PRODUCT EFFICIENCY 

27* 

c 


HPl -HAXIHUM INPUT POWER ,KW 

26* 

c 


CC -CAPITOL COST/YEAR, 5 

2 V* 

c 


CH -maintenance COST/YCAR,t 

3 0* 

c 



31* 



C0«M0N/CIMPL/IHPL,ICNT/CT1HE/TIME/CSIMUL/DUM 

32* 



K /COST/CCI,CWI 

33* 



REAL MP 2 ,HP 1 

34* 



DIHENSION PLOm 

35* 

c 



36* 



IFJ7MPL.6T.0lG0 TO 10 

37* 



TKAX1=TMAX*.99999 

36* 



RS2=RS1 

39* 


10 

continue 

40* 



NN6R=PL0t3S 

41* 



NNP1-PL062S 

42* 



M4-NNGR'»4 

4 3* 



HN4=NNP1-*M4 

4 4* 

c 



45* 

c 


COMPUTE SEAR RATIO AND POWER TERMS 

46* 

c 



4 7* 



P2=0. 

48* 



10= Q. 

49* 



PL = 0. 

SO* 



EF2=EF1 

51* 



HP2=MP1 

52* 


100 

IFURS1.LE<>0,J«OR.JPI,LE.O.JJGO TO 400 

53* 



P2=P1 

54* 


200 

If {RS2.LE.03GO TO 400 

55* 


3 DO 

GR=RS2/RS1 

56* 



PL=TSLU2 CPl,GR,PLO fM4 J ,PL0J4J ,PLO 8HN4 f 3 1, 1 

57* 



P2=P1-PL 

58* 

c 



59* 

c 


OUTPUT TORQUE 

6C* 

c 



61* 



T0=P?*737o6*3D./5RS2*3.14l59S 

62* 

c 



6 3* 

c 


efficiency and HAXmuH POWER 

64* 

c 



65* 



EF2=EF1*P2/P1 

66 * 



mEF2.GT,0.1S0 TO 409 

67* 



EF2=EFl 

60* 



IF! 1HPL.EQ.21WR1TEC6,4 00 tPLuPl 

69* 


408 

F0RMAT<1H0,?5H TRANSMISSION POWER LOSS »F12. 

7C* 



X 21H EXCEEOS INPUT POWER ,F12,3S 

71* 



IFUHPL.E0.21ICHT=ICNT*1 

72* 


4 09 

CONTINUE 

73* 



AMP2=TBLU2tMPl,GR,PL0IM41,PL0«4J ,PL0CMn41 ,1, 

74* 



XNNP1,NNGR) 

75* 




76* 



MP2=MP1-AHP2 

77* 



IrtHP2oGT.0.)G0 TO 400 

70* 



IF Cl HPL .F0.21HRnt J6,5D8IAHP2 ,MP1 


C00003 
CO 000 3 
DOCD03 


G0Q0D3 

00CC03 

CDQC03 

0DD0Q3 

CD00Q3 

D0COO3 

CCC003 

000003 

C0D003 

000003 

C000Q3 

CQ0D03 

CDOOC 6 

COOOll 

CCD014 

C00D14 


COOD22 
CD0Q31 
000033 
CQ0D33 
C0CD33 
000033 
000035 
GO 003 6 
C00037 
000040 
000042 
DC0044 
000060 
000062 
000071 
D00D74 
C00124 
000124 
000124 
CD0124 
0DD126 
000126 
000126 
000126 
cool 34 
D0014C 
000142 
cool 4 4 
CDQ156 


00015 

CD015 

0C016 

00Q16 



CC016 

C0022 


C0D22C 
DO 022 2 


COC224 
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0Q163 79* 508 F0RB*T(1HD,25H TRANSBISSION ROWtR LOSS tF12.3t 

C0163 aC* X 29H EXCEEDS HAXIHUM INPUT POWER ,F12.3l 

OOlfcM 81* tFtIMPL.E0.2IlCHT=rCNT*l 

a016»i- B2* C 

zai&a 839 HOD IFdMPL.LE.1 1RE7URN 

CCl70 SJi* TFfTiBE.LT.THAXllRETURN 

aCl72 85* CCI::;CC1-»CC 

OD173 86* CHI=CMI-»CH 

DD173 87* C 

aai7‘f 88* RETURN 

00175 89* END 


I 

t’ 

j. 


000236 

CC0236 

C00236 

CC0236 

C0D2N5 

CDC253 

C00262 

C0026S 

C0D265 

CDG270 

000373 



7.44 THERAAAL STORAGE CHAMBER 




POWER REQUEST (REl) 

INRUT POWER (P) 

MAX, INPUT POWER 
(MPT) 

The thermal storage chamber is modeled by a "lumped" parameter approach. 

The entire storage media mass Is characterized by a single temperature (no 
temperature gradient). The storage media is either a sensible heat or a phase 
change media. Energy is input via electrical resistance heaters and withdrawn 
by a heat exchanger. Energy is deposited in the media at a rate equal to 
the available electrical power up to a maximum charging power. The discharge 
heat exchanger fluid mass flow rate is adjusted to provide the desired heat 
load demand. The maximum mass flow rate condition determines the maximum 
thermal load. The maximum energy limit represents the point where the maxi- 
mum media temperature is reached. 

The model initially calculates the required storage media mass to provide 
the rated thermal energy storage (design point). Cost calculations are also 
made on the design point conditions. Initial checks on charge and discharge 
power and initial stored energy level are made. The storage temperature is 
determined based on the energy level. 

Basic Equation 

E = P- LD-NLW 


STORED 
ENERGY (E) 



LOAD DELIVERED (LD) 

POWER REQUEST (RE2) 
INTERRUPT FLAG ClNT) 
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TS 

Tab leg Description UoiM 

HT Medio temperature versus enthalpy in KWH/LB^ 


. ! iiP-klU 

Parameter/Port 


p 


Input power 

kw 

RE 

1 

Defiiand thermal load 

kw 

NU 


Stored energy loss coefficient (D *=0.02) 

(h)"^ 

TS 


Rated storage time 

h 

V0 


Rated input voltage 

V 

TMl 


Maximum allowable storage temperature (D = 2l2) 

°F 

T01 


Minimum allowable storage temperature (D = 60) 

°F 

DH 


Design point enthalpy 

kWh/ lb 

PD 


2 

Rated storage thermal power 

kw 

PM 


Maximum charge rate (D = 2^tPD) 

kw 

iV\FM 


Maximum working fluid mass flow rate (D - 9000) 

Ib/h 

TDE 


Teaiperature deadband for priority resequence 

(D == 4) 

°F 

EF 

1 

Input product efficiency 

- 

MP 

X 

Maximum input charging rate (D = l.XlO ) 

-4 . 

kw 

CP2 


Working fluid heat capacity (0 = 2. 93XX0 ) 

kwh/ lb 

T02 


Working fluid return temperature (D = 40) 

°F 

TM2 


Maximum allowable working fluid temperature 

(D = 212) 

°F 

R 


Effective heat exchanger thermal resistance. 

(D = 3.08X10 '^) 

°F/kw 

CM 


Storage device yearly maintenance cost 

(D =0.6) 

i;/kw 

CSA 


Storage device capacity cost ID = 50) 

$/kw 

CSB 


Storage device energy cost (D = 15.2) 

$/kwh 

LE 


Unit life expectancy 

years 

D - 

Default va! 

lues specified 


1 - 

See Figure 

7.44 


2 ~ 

Design point conditions 
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Outputs 


Var i ab 1 e/ Port 

Descriot ion 

Ujll.ts 

E 

Stored energy (state) 

kwh 

1 

Input current 

amps 

MP 2 

/Maximum discharge rate allowable 

kw 

INT 

Priority interrupt flag 

- 

T 

Storage temperature 


M 

Required storage media mass 

lb 

CC0 

Storage device capital cost/year 

$ 

RE 2 

Nlaximum charging rate request 

kw 

Nf 

Working fluid mass flow rate 

Ib/h 

LD 

Power Delivered 

kw 

Stat i sf ics 

TSU 

Maximum storage temperature 

Op 

TSL 

Minimum storage temperature 

°F 

WE 

Maximum stored energy 

kwh 

WU 

Maximum working fluid mass flow rate 

Ib/h 



FIGURE 7.44: TEMPERATURE - ENTHALPY DIAGRAM 
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The calculaHon sac|uence and default values assume a thentol storage device 
sized ^o provide lOkw for 24 hours* A paraffin wax phase change storage me- 
dium is assumed. Water is assumed as the thermal transport fluid. Costs are 
assumed to be given by data for the phase change storage device given in 
Reference 1. The thermal resistance v^alue, Is assumed equal to that de- 
termined for the device of Reference 1. The value for the maximum charging 
rate^ PA\, reflects the acceptance of twice the design charge rate. The ac- 
tual numbers which should be used will depend on specific design and per- 
formance requirements obtained from a desired application* 

Calculatio n Sequence 

1) Media mass, capital cost, maintenance cost (first passj 

. PD^TS 
~ DH 

CC = ICSA+CSB-^'T^)^/LE 
CM == CAmi 

2 ) Storage Temperature and Working Fluid Teniperature 

T = WT(E/A\) 

TF - min{TM2>nax [T02,T-RE1^ ]} 

E2 


1. "Advahced Thermal Energy Storage," BEC/EPRl RP 788-1, July 1976. 
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TS 

CaLaulatlon Sequence Cont . 

3) Discharge Rate and Thermal Load 

El = AP-HT"^ (TOl ) 

MP2 = MFMJ<CP2»(TF-T02) 

L0=M|N(RE1,A/\P2, (E-ED/TINC) 

MF = LD/(CP2^HTF-T02) ) 

4) Diagnostic Checks 

MF $ MFM 
P < PM 

701 < T < TAU. 

5) Current calculations 

1 = 

V0 

6) Energy dynamics 

■ 

E = P-LD-NU^ 

7) Maximum Charging Rates 

RE2 = mln(PM,MPl, (E2-E)/TINCJ/EF1 
where TINC = Integration step size 
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Calculation Sequence Cont 



8) Priority resequencing 

if T < T01, INT = 1 

if T > TOl+TDE and 1NT=1, INT=0 

if T > TMl, INT=~1 

if T < TMl-TDE and INT=-1, INT=0 

9) Compute Statistics and Costs 
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7.45 TURBINE (PNEUMATIC) 




MASS FLOW RATE (M) 
TEMP (Tl) 

ROTOR SPEED (RS) 

INPUT POWER (PI) 

MAX. INPUT POWER 
(MPT) 

INPUT EFFICIENCY 
(EFl) 


The turbine model is based on a high pressure ratio, constant angular velocity 
design. The turbine is assumed to be designed to a set of af operating con- 
ditions defined in terms of user specified parameters. The polytropic effic- 
iency is only weakly related to angular velocity. Initial calculations are 
made with the design polytropic efficiency, and refinements are then con>- 
puted after off-deslgn parameters are calculated. 

Basic EauatLon 

The equation for output power P2 is 
P2 = AWCP*(T1-TA) 



POWER (P2) 

■MAX. OUTPUT POWER (MP2) 
OUTPUT EFFICIENCY CEF2) 
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OIUOINAL 

OF POOR uuivorni 



Inputs 


Parameter/Port 

Description 

Units 

M 

Inlet mass flow rate 

Ib/h 

CP 

Air heat capacity (D == 7-2X10 ^) 

kwh/ 1 b/°F 

T 1 

Input air temperature 


TA 

Ambient air temperature 

^F 

/vt) 

Design mass flow rate ID = 4800) 

Ib/h 

TID 

Design inlet air temperature ID = 600) 

°F 

PID 

Design inlet pressure (D = 117.6) 

psi 

P2D 

Design exit pressure (ambient) (D =14-7) 

psi 

T2D 

Design exit temperature (ambient) (D =70) 

°F 

PS 

Storage Vessel pressure 

psi 

RS 

Angul ar veloci ty 

rpm 

EF 1 

Input product efficiency 

- 

MP 1 

Ataximum input power 

kw 

P 1 

CK 

Input power 

1 

Capacity cost coefficient ID =0.015) 

kw 

F0 

Turbine mass flow exponent for capital cost 

,D = 0.75) 

- 

6 

NPD 

■Qui£y.tjs 

Var.i..ai3.1.e/P.«aLt. 

Turbine temperature exponent for capital cost 

(D = 0.5) 

Design Polytropic Efficiency (D =0.88) 


P 2 

Output power 

kw 


Turbine cost/year 

$ 

PvR 

Back pressure 

psi 

Ta 

Torque 

ft-lb 


D - Default values supplied 


1 PO 

CK = Capital cost (known unit )/ [(design point mass flow rate) •M' 

(design point temperature + 460)® tt LN ( Inl et/out I et pressure ratiol^LE], 
where LE = life expectancy in yearsi 
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Un i ts 


TU 


Outputs Cont . 
Var i ab I e/Port 
EF 2 

MP 2 


Description 

Output product efficiency 
AAaximum discharge power 


kw 


Stat i st ics 

MP Maximum power observed kw 


The calculation sequence and the default values are based on the assumption 
of a high pressure ratio, constant angular velocity turbine, rated at 150 kw 
and a pressure ratio of 8. The equations used relate first order effects 
among the various physical quantities and were derived from first principles 
originally in support of the research work of Reference 1. Cost scaling was 
also developed in that reference based on cost estimates from turbomachinery 
manufacturers. 


1. "Closed Cycle High Temperature Control Receiver Concept for Solar Electric 
Power," BEC/EPRI RP377-1, June 1976. 
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Ca I cu I a !■ 1 on Sequence 



1 ) Costs 

CC = CK'J«-(WD)tH(F 0 'Ji-(TlD+ 4 - 6 O)'?«<Gt^LN(PlD/P 2 D) 

2 ) Back Pressure PR determined by 

PR (M/WD)ttplD-«- ^ {Tm 60 ) /(TlD+ 460 ) 

If PR > PS write DIAGNOSTIC 

3 ) Efficiency 

RAT = {PlD/P 2 D)-?H{-{ 2 / 7 ) 

EFF = { RAT- 1 , ) / { RAT-iHt( 1 / NPO ) - 1 ) 

4 ) Power Out 

P 2 " M^‘'CP^HTl-TA)‘>iEFF 

51 Torque 

1 f RS =s 0 , set TO - Q and go to 6 ) 

TO = P 2 «-( 737 , 6 )/{RS* 2 tT/dO) 

d ) E f f I cl ency and max i mum power 
EF2 « EFl-5fEFF 

I MP 2 - min (^\Pi-»£FF Tl-TA) ) 

{ 

} 

I 7 ) Compute Statistics and Costs 

i 

j . . 

( 

j , 

i 




OI 

w 

09 


SUBROUTINE TU ENTRY POINT 000335 


ST0R4GE USED CODE U I OOOmj; OAT»<OI 000065; BLANK COMMOHtZI 000000 


COMMON 

BLOCKS 


0003 

CIHPL 

000002 

ODO*) 

CTIME 

000001 

0005 

csjmul 

OOQOlO 

0006 

COST 

OOOOQl 


EXTERNAL REFERENCES fBLOCK, NAHE J 


0007 

XPRR 

0010 

alog 

00 11 

SORT 

0012 

AVDUS 

0013 

NJ02* 

001 A 

NERR3* 


STORAKE assignment fBLOCK, TYPE, RELATIVE LOCATION, NAME! 

0001 OOC137 lOQL 0001 00Q30A lOOOL 0000 OOOQOA lOlOf 0001 00020N 200L 0001 000233 
OOC-6 R OCECOO CCI 0005 000000 DUtI 0000 R 000003 EFF 0003 I 000001 ICNT 0003 I COOOOO 
0000 OOOOA7 INJPt OOGO R 000000 PI 0000 R 000C02 RAT OOON R 000000 TINE 0CD5 R COFOOT 
0000 R CDOOOl TMAXl 



00100 

!♦ 

CTU 




COOOOO 


00101 

2* 


SUBROUTINE TUfP2,CC,PR,T0 ,EF2 ,NP2 ,HOP,« ,CP,T l,TA,NO,TIO,FrO,F20, 

000000 


DO 101 

3* 


1 

T2D 

,PS,RS,Eri,MPl,Pl,CK,F,G,NPD» 

COOOOO 


00101 

M ♦ 

C 




DCOCOC 


00101 

5* 

C 

PURPOSE 

TURBINE PERFORMANCE MODEL 

COCCOO 


COlOl 

6* 

c 




COOOOC 


DOlOl 

7* 

c 

METHOD 

COMPUTE TURBINE POWER OUTPUT FROM INPUT DESIGN 

COOOOO 


OOlOl 

/>* 

c 




COOOOO 

03 

00101 

9* 

c 


CO NO 

ITTONS AS A FUNCTION OF INLET TEMPERATURE 

COCOOC 

O 

DOlOl 

ID* 

c 




cocoa c 

C/) 

to 101 

11* 

c 


and 

MASS FLOW RATE 

OODOOQ 

4:, 

COlOl 

12* 

c 




COCOOC 

CZ^ 

C-OiOl 

13* 

c 

WRITTEN BY 

r. 0. 

MAHONY VERSION 1, NaRCM 22 1977 

COCOOC 

CO 

OOICI 

lA* 

c 




000000 

o 

r 

roioi 

15* 

c 

CALL SEQUENCE 


CODOCG 

ro 

COlOl 

16* 

c 

OUTPUTS 


coococ 


coiai 

1 7* 

c 


P2 

- OUTPUT POWER, KW 

COOOOO 


to 101 

18* 

c 


cc 

- turbine COST PER tear, S 

DOGOOO 


£.0101 

19 + 

c 


PR 

- BACK PRESSURE, PSl 

CCGOOO 


DOlOl 

20* 

c 


TO 

- TORQUE, FT-LB 

coccco 


300L 

INPL 

TMAX 
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DOlOl 

21* 

C 


EF2 - OUTPUT PRODUCT EFFICIENCY 


00 101 

22* 

C 


NP2 - NAXInUH DISCHARGE POuER, KV 


COlOl 

23* 

c 


HOP - HAXIMUH POWER OBSERVED, KW 


00101 

24* 

c 


INPUTS 


CDlOl 

25* 

c 


H ^ INLET HASS FLOW RATE, LB/HR 


CO 101 

26* 

c 


CP - AIR HEAT CAPACITY, KWH/LB/DE6 F 


00101 

27* 

c 


T1 - INPUT AIR TEHPCRATURE, 0E5 F 


COlOl 

28* 

c 


TA - AMBIENT AIR TENPErATURE, OEG F 


ociai 

29* 

c 


MO - DESIGN MASS FLOW RATE, LB/HR 


DOlOl 

30* 

c 


TID - DESIGN INLET AIR TEMPERATURE, DEG F 


00101 

31* 

c 


PIO - DESIGN inlet PRESSURE, PSI 


OOlQl 

32* 

c 


P20 - DESIGN EXIT PRESSURE (AMBIENT 1, PSI 


COlOl 

33* 

c 


T2D - DESIGN EXIT TEMPERATURE (AMBIENTI, PSX 


CCICI 

34* 

c 


PS - STORAGE VESSEL PRESSURE, P$I 


00101 

35* 

c 


R5 - angular VELOCITY, HPM 


COlOl 

36* 

c 


EFl - INPUT PRODUCT EFFICIENCY 


00101 

37* 

c 


MPI - MAXIMUM INPUT POWER, KW 


COlOl 

38* 

c 


PI - INPUT POWER, KW 


OClOl 

39* 

c 


CK - CAPACITV COST COEFFICIENT 


00101 

40* 

c 


F - TURBINE HASS FLOW EXPONENT FOR CAPITAL COST 

uOlOl 

41* 

c 


G - TURBINE temperature EXPONENT FOR CAPITAL 

COST 

OClOl 

4 2* 

c 


NPD - DESIGN POLYTROPIC EFFICIENCT 


00 101 

4 3* 

c 




00103 

44* 



COMMON /CIMPL/IMPL.TCNT/CTIHE/ TIME /CSIHUL/DUH(7 1 ,THAX 

/COST/CCX 

00104 

45* 



REAL MP2.H0P, H.ND, MPI, NPD 


00105 

4 t* 



DATA PI /3. 14159/ 


C0105 

4 ’.* 

c 




CC107 

48* 



IFtlMPL.GT.Pl 60 TO 100 


com 

49* 



IFICP ,E0. .999991 CP = 72.0E-6 


00113 

SO* 



IF(TA .EO. .999991 TA x; 73.0 


cons 

51* 



IFIMO .EO. .999991 MO - 48G0. 


00117 

52* 



irCllO.EO. .999991 T1C=600.3 


00121 

53* 



lr<PIO.EQ. ,99999) P10rll7.6 


00123 

54* 



1F(P20.E0. .99999) P20ri4.7 


00125 

55* 



IF(T2D.E0. . 999991 T2D = 70.D 


CC127 

56* 



1F(CK .EO. .99999) CK =C.0l5 


00131 

67* 



ir<F .EO. .99999) F =0.75 


D0133 

58* 



1F(G .EO. .99999) G =0.S 


00135 

59* 



IFtNPO .EO. ,99999)MP0= .86 


00137 

6C* 



MOP = C. 


00140 

61* 



RS= AHaX1(0.0,AHIN1(RS, 4000.1) 


00141 

62* 



TKAX1=.99999*TKAX 


00142 

63* 



CC = CK*H0**F*(Tin«4b0. )**6*AL0G(PID/P2D> 


00142 

64* 

c 


DETERMINE BACK PRESSURE 


CD142 

65* 

c 




00143 

66* 


100 

RAT= (PI0/P2DI**.28S7 


CD144 

67* 



Err= (RAT-1. DI/IRAT**(1. /NPD) - 1.01 


00145 

68* 



PR = M/HO*P10*SQRT((T1 ♦ 460. 0 1 / ( TI0*460. ) ) 


00145 

69* 

c 




0C146 

70* 



IF(PR.GT.PS) GO TO 1000 


C0146 

71* 

c 




L'0146 

72* 

c 


POWER OUTPUT 


00146 

73* 

c 




00146 

74* 

c 




uOlSO 

75* 


2 00 

P2= M*CP*C71-TA)*ErF 


00151 

76* 



TO = 0. 


•i0l52 

77* 



If(RS.EO.C. .OR, PI. CO. 0.) 60 TO 300 
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000000 

ODOOCO 
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000000 
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COOOOC 

ccccoo 
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COLOOO 

rocooo 

COOOOO 
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OOCCOQ 
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COOGDO 
000002 
000007 
00001 * 
000021 
000026 
DDCQ33 
00 CO* 0 
0000*5 
0CC0S2 
000057 
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000137 
0001*6 
000162 
000162 
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301S2 

7B>* 

C 

TOROUE 

QDD213 

aDi5<j 

79* 


TO = PZ*737>6/n?S*2.0*Pl/60.01 

0DC223 

00154 

ac« 

C 


CQ0223 

COISM 

81* 

c 

EFFICIENCY «N0 HAXIHUH POWER 

000223 

3015M 

82* 

c 


□00223 

00155 

83* 

3ca 

EF2 r EF1*EFF 

000233 

G0156 

«4* 


MP2 = AKINlfMPl*EFF ,WD*CP*ITl-T»l > 

000235 

00157 

85* 


IFCIHPL.CE. 11 RETURN 

000251 

00161 

86* 


MOP = AMAXl CM0P.P2 » 

□00260 

00162 

87* 


IFeTIME.CT.TMAXl) RETURN 

000266 

00164 

88* 


CCI = CCl ♦ CC 

C00275 

00164 

8 9* 

c 


000275 

00165 

90* 


RETURN 

000300 

CO 165 

91* 

c 


CQ03C0 

rci66 

92* 

lOCO 

irCIHPC.EQ.2)URITE(6«10101 PR, PS 

000304 

00173 

93* 

1010 

FORMAT I IHO.ZIHTURBINE BACK PRESSURF.FIZ. 3, 

C0D31S 

00173 

94 * 


1 39H GREATER THAN STORAGE VESSEL PRESSURE ,F12.3> 

000315 

00174 

95* 


IFTIMPL.f 0.ZIICNT=ICNT*1- 

000315 

00174 

96* 

c 


C0C315 

00176 

97* 


GO TO 200 

DC 032 3 

00176 

9a* 

c 


00C32 3 

0017 7 

99* 


END 

00C47C 



7.46 UTILITY 



SURPLUS POWER (PO) 
PEAK POWER REQUEST (RE) 



BASELOAD GENERATION (PI) 

PEAK LOAD GENERATION (P2) 
MAX, POWER CAPACITY (MP2) 


The utility model has two power outputs corresponding to baseload and peak 
generation, with correspond I ng generation cost inputs. A surplus power input 
is also provided with cost credit depending on whether baseioad or peak power 
is reduced. Total energy cost, total output power and total peak load requests 
are moni tored. 
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Inputs 

.P.a.r.^Pig.ter/Parj: 

BS 

CB 

MP 1 

P 0 

RE 
CP 

cc 

CM 


Outputs 

Var I ab I e/Port 


p 

1 

Baseload generation (= BS) 

kw 

MP 

2 

Maximum power capacity (= MPl) 

kw 

P 

2 

Peak load generation 

kw 

CO 


Cost of energy used (state) 

$ 


Stat i st ics 



SR 

Sum of requested peak generation 

kwh 

SPO 

Sum of output energy 

kwh 

SP 

Sum of surplus energy 

kwh 

VSP 

Value of surplus energy 

$ 


Description Units 

Baseioad generation (default =0.) kw 

Cost of base load generat I on/kwh $ 

0 

Maximum power capacity (default ® 1x10 ) kw 

Surplus power returned to utility kw 

Peak generation request kw 

Cost of peak load generation/kwh $ 

Capital cost/year $ 

Maintenance cost/year $ 
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Calculation Sequence 




1) Power outputs 

I f BS > MPl, write diagnostic 
Pi = BS, AAP2 = MPl 
P2 = MIN (MP1-BS,RE) 

2) Energy cost dynamics 

CO = BS-MCB + (P2-P0)-KCX 

ry = /cP if P2-P0 >0 
\0 if P2-P0<0 

3) Statistics 

SR = SR + RE Vr TINC 

If P2>P© 
\(P0-P2)-«-TINC if P0>P2 

SP0 = SP0 + (Pl+P2-P0I*TINC + DEL 

SP - SP + DEL 

VSP = VSP + DEL CB 

Where TiNC = integration step slze/2 

4) Compute Costs 
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SUBROUTINE UT 


ENTRY POINT 000217 


STORAGE USED CODEIU CC0341; DATACO) 0000<lS; BLANK CONNON(2> OOOOCO 

CONHON BLOCKS 

0D03 CINPL 000002 
000*» CTIME OOOOOl 
0C05 CSIHUL 000010 
□3C6 COST 000011 


O S 

II 

Ca ^ 


EXTERNAL REFERENCES IBLOCK* NAHEI 

□007 NUDUS 

0010 NI02S 

0011 NERR3« 


ST0RA6E ASSIGNHENT IBLOCK, TYPE. RELATIVE LOCATION, NANE) 


OOOl 

0000S3 

IDOL 

0001 0001R6 200l 0003 OOOOOA 208F 

0006 

R 

000000 

CCI. 

OC06 R OOOOOl 

0006 

coco 02 

COP 

0000 R 000002 CX 0005 R 000000 DUN 

0003 

1 

OQCOOI 

ICNT 

0003 1 OOOCOO 

00 CO 

000023 

INJPS 

0006 R 000010 SPD 0006 R 30000<i TOE 

0000 

R 

C00DC3 

TERM 

OOQ*l R COOOOO 

UOOO 

R CeOOQl 

TINCl 

0C06 000005 TLO 0005 R OOOOOT THAX 

0000 

R 

000000 

TMAXl 

0C06 R CC0007 

00C6 

R 0000Q6 

UTV 

0006 R 000003 VDE 






00100 

1* 

CUT 






000000 

COlOl 

2 * 

SUBROUTINE UT(P1,NP2,P2,C0,C00,1C0,SR,SP0,SP,VSP 





000000 

CiOlQl 

3* 

1 

,BS,CB,KP1,P0,RE,CP,CC,CH» 





OOOOCO 

U0131 

H* 

C 






000000 

CO 101 

5* 

C 

PURPOSE NOOEL OF UTILITY CAPABLE OF PRODUCING 




GO 0000 

COlOl 

6* 

c 

BASELOAO AND PEAKLOAD POWER, AND 

OF 




OOLDOO 

00101 

7* 

c 

ABSORBING SURPLUS POWER 





oocooc 

COlOl 

8« 

c 






000000 

ODIOI 

9* 

c 

HETHOO CONPUTE PEAKLOAD GENERATION AND 

energy 

COST 


COOOOO 

COlOl 

1C* 

c 






OOOOCO 

C.01D1 

1 1* 

c 

WRITTEN BY Y.K.CHAN VERSION 1,JUNE 8, 

1977 




roooDO 

COICI 

1 ;* 

c 






COOOOO 

COlOl 

1 3* 

C CALL SEQUENCE 





COQCQO 

COlOl 

i*t* 

C 

OUTPUT 





OOGOOO 

00101 

15* 

C 

PI -BASELOAO generation, KW 





CJOODOC 

00101 

16* 

C 

MP2 -MAXIMUM POWER CAPACITY, KW 





GOCDOO 

COlOl 

17* 

C 

P2 -PEAKLOAD GENERATION .KW 





OOOOCO 

COlOl 

IB* 

C 

CO -COST OF ENERGY USED (STATE), * 





ccccoc 

00101 

19* 

C 

COD -energy cost RATE, J/HR 





OOGCOC 

00101 

2 0* 

C 

ICO -INTEGRATOR CONTROL FOR CO 





COOOOO 

00101 

21* 

C 

statistics 





COOOOO 

■AO i,a> 

.... 



SR -SUM OF REQUESTED PEAK GENER ATl ON,KW 





COCDCC 


00X01 

2 3* 

c 

5P0 -SUK or OUTPUT TNCRBY, KWH 

CiOOCOO 

CD 101 

24+ 

c 

SP -SUM or SURPLUS lnergt, kwh 

COCjOOO 

£.0131 

25* 

c 

VSR -VILUE OF SURPLUS ENERGY t * 

DOCCOC 

LDlOl 

2 (* 

c 

INPUTS 

COOCQC 

CiOlOl 

27 * 

c 

RS -BASELOAD GENERATION < DEE AULT=0 . I ,KW 

COCOOO 

COiOl 

2 6* 

c 

CB -COST or BA5EL0A0 GENERA TIOH/KW H, * 

GOGCOO 

CO 101 

29* 

c 

MPl -MAXIMUM POWER CAPACITY, KW 

CDCCQD 

COlOl 

30« 

c 

PO -SURPLUS POWER RETURNED TO UTILITY, KW 

COCOOO 

COlOl 

3M 

c 

RE -PEAK GEK-ERATION REQUEST, KW 

CDCDOQ 

uDlOl 

32* 

c 

CP -COST OF PEAKLOAD GENERATION/KUH, » 

DODjOC 

COlOl 

33* 

c 

CC -CAPITAL COST/YEAR, % 

GOOGQO 

COlOl 

34* 

c 

CM -MAINTENANCE COST/YEAR, » 

CO ODD 0 

DC 101 

35* 

c 


eoGoco 

0G133 

3t» 


COHNON /CIMPL/IMPL ,1CNT/CT 1M£ /TIHE/CS IMUL /OU M IT I , TpAX 

CO 000 c 

00103 

37* 


X /C05T/CCI ,CHI,COP,¥DE,TOr,TLO,UTW,UTD,SPD 

COCCDO 

COlOU 

36* 


real mP2,MP1 

GDCOCO 

00104 

39* 

c 


COOOOO 

C0105 

40* 


irilMPL.GT.DIGO TO 100 

COCOOO 

00107 

41* 


in BS.EO ..99999 JBS=0. 

0D0C02 

com 

42* 


IF (MPl. EC.. 999991 MPl =1 ,C$ 

G0G0Q6 

00113 

43* 


TMAX1=TMAX*.99999 

D00013 

aoiiH 

44* 


SRrC. 

COCOl 6 

CD115 

45* 


SP=0. 

CDCG17 

C011& 

4e<* 


SPOrO, 

D00020 

D0117 

4 7* 


VSP-0. 

C0GO21 

CD 120 

4B* 


RE=0. 

C0DD22 

C0I21 

4 9* 


P0=0. 

CD0023 

C012I 

SO* 

c 


C0DC23 

00121 

SI* 

c 

COMPUTE POWER OUTPUTS 

C00023 

CC121 

52* 

c 


00CD23 

CO 122 

S3* 


TINClrDUHt7l*.S 

COOC24 

CO 12 3 

54* 


IFIBS.LE.HPIIGO TO 100 

C0GG27 

cri25 

55* 


WRITE(6,2C8 IBS.MPl 

CCC033 

00131 

56* 


208 FORMAT! IHO, lOH BASELOAO ,F12.3,32H EXCEEDS MAXIMUM POWER CAPACITY, 

G0GD42 

DO 131 

S7* 


1 FI 2.3 J 

C0C04Z 

G0132 

5 5* 


ir(lKPL.E0,2llCNT=ICNT*l 

C0G042 

DG13») 

5 9* 


BSrHPi 

CDDCSD 

00134 

6 0* 

c 


00GD50 

SOI 35 

61* 


100 P1=B5 

D0G053 

00156 

62* 


MP2=MP1 

CCG054 

00137 

6 3* 


P2iAHlNl CMP1-BS,REI 

CD 005 6 

GDI 37 

64* 

c 


CO CDS 6 

00137 

65* 

c 

COMPUTE ENERGY COST 

00G056 

00137 

66* 

c 


000056 

50140 

67* 


cx=o. 

CDCC-64 

CD141 

68* 


iriP2.GT.P0ICX=CP 

0CO06S 

CD 14 3 

69* 


IF(ICO,HE.O>CODrBS*CB4TP2-P01*CX 

CD0073 

00145 

70* 


IF tIMPL.LE. n RETURN 

000104 

CG145 

71* 

c 


D0G1C4 

10145 

72* 

c 

STATISTICS 

C00104 

00145 

73* 

c 


CGD1D4 

CC147 

74* 


SR=SR4BE*TI}iCl 

cool 1 3 

CDisa 

75* 


SPOrSPO* {P14P2-P0I *T1NC1 

CODXl 7 

DOISl 

76* 


lFtP2.GT.P0l GO TO 200 

cool 2 5 

C01S3 

77* 


TrRH=tP0-P2 »*T1NC1 

C00131 

D01S4 

7e* 


SPO= SPO+TERM 

000135 

0C1S5 

7 5* 


5P= 5P4 term 

C00137 
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i 


00156 

80* 

VSP= VSP* CB*TER« 

000141 

CD157 

8 1* 


C0C146 

00157 

82» 

C 

000146 

OC157 

83* 

2 DO irtTIPE.LT.THiXll RETURN 

00014 6 

00161 

8<«« 

CCI=CC1*CC 

000154 

CO 162 

8 5* 

CHI=CHI*CH 

C00157 

00163 

86* 

VDE=VOE-CO*VSP 

000162 

00164 

87* 

toe=toe:-spo*sp 

000166 

D016S 

88* 

UTV=U7V*C0 

000172 

CC166 

89* 

UTO=UTD*SPa 

C0C175 

CC167 

90* 

SPD= SPD*SP 

000200 

CG173 

91* 

RETURN 

000203 

com 

92* 

CNO 

000340 



WD 


7.47 WIND 


RECORDED WIND 



This model computes wind speed either from user supplied time histories (datu 
tape) or by generating a set of random numbers with user supplied dally and 
yearly average profiles and user specified random variation. If user supplied 
profiles are available then the wind speeds are generated from the following 
equation; 



WV == CpO(TD) -f N(T)]-»'N^Y(WY)/M 

where PD Is the user suppi led dal ty mean profile 
TD Is the time of the day 
PY Is the user supplied yearl y prof! le 
WY Is the week of the year 

N Is white noise with user specified probability distribution 
1 

L PY(l) 
l=X 




WD 


Tables 

P.£S,gr-!.p.il.g.a 

Units 

PD 

Dally profile versus TO (default = 0) 

ml les/hr 

PY 

Yearly profile versus WY 

arbi trary 

DF 

Densit. function for white noise terms 
(tabular with speed W) 

arbi trary 

Inouts 

Parameter/Por t 

WV 1 

Wind speed data file input 

m! 1 es/hr 

TD 

Time of day 

hr 

WY 

Week of the year 

- 

Variable/Port 

WV 2 

Wind speed 

mi 1 es/hr 

Aft 

Aftean of yearly profile 


TlAft 

Last time a random sample was generated 

hr 


Stat i st ics 

W Wax'imum speed mites/hr 

AV Average speed (expected dai I y wind) miles/ hr 


■QaLcMl^tJ sn -St^aMg.ncg 



1) Compute distribution function and mean M (first pass only) 

I Z DF(V. ) ; V. ^WV) 

F(WV) = ' 

EdF(Vj) 

2) Check for data file input 
If VWl = .99999 go to 3) 

WV2 = WVl 
Go to 5) 

3) Generate white noise input N 
I f TIA/E = TIM go to 5) 

U = random noise sample, uniformly distributed [0,1] 

Interpolate to find N = F ^(U) 

TIM = TIME 

4) Compute wind speed 

W2 = [PD(TD) + N PY(WY)/M 

5) Compute Statistics 


BCS 40180-2 


349 


BCS 40180-2 


SUBROUUNC VD CNTRY POINT 000412 

STORAGE UStD CODEIll 000473; DATAtO) 000063; BLANK COHHONC2) COQOOO 
COKHON ELOCNS 

0003 CIWPL DCOOOl 

0004 CTIHE OCDOOl 



EXTERNAL RErERENCCS IBLOCKt NAME! 

ODDS UNTF 

0006 TOlUI 

0007 NCRR35 


STORAGE assignment IBLOCK, TYPE. RELATIVE LOCATION. NAMEI 


□001 


000245 

lOL 

0001 


000253 

lOOL 

0001 


000074 

1226 

0001 


000133 

1376 

OCOl 


00 0353 

ISOL 

0001 


000202 

155G 

onoi 


000225 

1656 

0031 


000146 

40L 

0000 

R 

000010 

A 

0030 

R 

CO 000 5 

ANN 

0000 

R 

CC0014 

ouv 

0000 

1 

000006 

1 

0003 

I 

oooooa 

IMPL 

0000 


000024 

INJRS 

0000 

I 

00000 C 

IX 

0000 

1 

COD007 

L 

ccoo 

I 

000302 

NO 

3000 

1 

000001 

NP 

0003 

I 

D0CC12 

NPl 

0000 

I 

CO 000 3 

NY 

□oco 

R 

OC0004 

SUM 

0006 

R 

.000000 

TBLUl 

0004 

R 

000000 

TIME 

0000 

R 

000011 

U 

0000 

R 

000013 

VN 


QOCD R OOOCIS YUV 


DOICO 

!♦ 

CVO 


0D0016 

□0101 

24 


SUBROUTINE UO tPD.PY.Wr.UV0.AHV.AV.XH.1IH0 .UVI.TO.UY> 

300016 

COlOl 

3* 

c 


CO CO 16 

DO 101 

4* 

c 

PURPOSE GENERATE WIND SPEED FROM DAILY. YEARLY. AND RANDOM PROFILE DATA 

Q0D016 

COlOl 

54 

c 


CO CO 16 

DOIDI 

6* 

c 

method random NOISE UITH SPECIFIED DI5T. IS ADDED TO MEAN DAILY PROFILE 

D0Q016 

ODIOI 

7* 

c 

AND MULTIPLIED SY A YEARLY PROFILE. INITIALLY THE DENSITY TABLE 

CCQ016 

i;oioi 

84 

c 

UF IS CONVERTED TO A OIST. FUNCTION. 

C0C.016 

OClGl 

94 

c 


C00016 

oeioi 

1C* 

c 

URITTEN BY A.U. UARREN VERSION 1, MARCH 4 1977 

C00016 

OOlOl 

11* 

c 


CCC016 

00101 

1 2* 

c 

CALL SEOUENCE 

0C0C16 

OOlOl 

13* 

c 

TABLES 

C00016 

licioi 

14* 

c 

po - mean daily wind profile. MPH 

G0D016 

CDIQI 

15* 

c 

PY - MEAN yearly UIHO PROFILE 

00 CO 16 

COIDI 

16* 

c 

UF - UINO FREQUENCY FUNCTION fNON-GUST. RANDOM COMPONENT). HR 

000016 

GCIQI 

17* 

c 


CD0016 

COlOl 

1 f* 

c 

OUTPUTS 

000016 

COIDI 

10 * 

c 

UVO - MIND velocity OUTPUT, MPH 

000016 

COlOl 

2C* 

c 

A MV - MAX. Ofi SERVED WIND SPEED. MPH 

D 00016 

uDlOl 

21* 

c 

AV - MEAN DAILY WIND SPEED, MPH 

GDDQ16 

CCIOI 

— — lirt 

22* 

c 

XM - KEAN YEARLY WIND, - 

RANDOM SAMPLE WAS USED, HR 

C00Q16 
DCDOl 6 






CO 







o 







l/> 







■Pi 

o 

00101 

24* 

C 



000016 

*-• 

00 

COIDI 

25* 

c 


INPUTS 

000016 

o 

oqioi 

26* 

c 


HVI ^ WIND velocity INPUT PPOH 08T* FILE, MPH 

C0C016 

|VJ 

acioi 

27* 

c 


TO - TINE OF DAY, MR 

000016 


00131 

28* 

c 


UV - MEEK OF YEAR t 1-521 

D00016 


DC 101 

29* 

c 



000016 


OOIDI 

30* 

c 



000016 


00103 

31* 



DIMENSION Pom.PYdi.wrm 

COOOl 6 


00104 

32* 



COHMON/CIHPL/InPL /CTIHE/TIHE 

C0QQ16 


00105 

33* 



DATA IX/1/ 

COCCI 6 


00105 

34* 

c 


IN1TIALI2ATION 

OOG016 


0C105 

35* 

c 


COMPUTE mean daily WIND SPEED AND OXST. FCN 

C0C016 


00105 

36* 

c 



C0Q016 


00107 

37* 



NP=WF(2> 

COOOl 6 


00110 

3e* 



NO=PDI2l 

CO 002 5 


com 

39* 



NY=PYI21 

000034 

i 

00112 

40* 



IFCIHPL.ET.O) SO TO 10 

C00043 


00114 

41* 



SUM=D.0 

CQ0046 

; 

roil 5 

42* 



AMNrO.O 

COOQ47 

•: ' 

00116 

4 3* 



TiMOr-I. 

CQOOSC 

; 

C0117 

44* . 



IF(Uri4*2*NPl.E0. 1.) 60 TO 40 

000052 

^■ 

00121 

4 £* 



00 20 1=1, NP 

C00074 


DP124 

46* 



UF(I«?I = WF(I«3| 

000074 

1 

C0125 

47* 



L - 3*MP»I 

C00Q76 


00126 

48* 



A=UF(L) 

000101 


00127 

49* 



WF(L)=SUM 

0001C5 


00130 

SO* 



SUMrSUM* A 

OOOIDT 

1 .. 

00131 

51* 


20 

AHN = AMN ♦ A«UFC2*n 

COOll 1 

l:’. 

00133 

52* 



A MM = AHN /SOM 

000116 

1 ■ ■ 

r 

Q0134 

53* 



MFt3-»NPl= WF(NP*21*2« - UFINP^H 

C0012D 

V 

t,. 

00135 

54* 



HFIL»1>= 1. 

C30124 

i" ■ ■ 

00135 

55* 

c 



000124 

r 

C0136 

56* 



00 30 1=1, NP 

00C133 


00141 

57* 



L=34NP*I 

DCD133 

1 

0C142 

58* 


30 

NFtL) = UFILI/SUM 

000140 

L' 

00144 

59* 


40 

CONTINUE 

000146 

1 ' 

00144 

60* 

c 


default table for pd 

000146 

1: 

DC144 

61* 

c 



C00146 


00145 

62* 



IF1P0I2).E(I> 1.999991 P0l4l=0. 

000146 

• 

00147 

63* 



IF|PDf21.E0. 1.999991 P0I5>=0. 

000151 


C0151 

64* 



IFIPDI2I.C0. 1.999991 PDI2I=1. 

C00171 

t 

OCISI 

65* 

c 



000171 

i 

00153 

66* 



AV = 0. 

C00176 

!■ - ' 

00154 

6 7* 



00 25 1=1, NO 

C-00202 

1 

00157 

6 8* 



L = 3»N0*1 

D00202 

I' 

30160 

69* 


25 

AV = AV*P0ILI 

000205 

[• 

00162 

70* 



AV = AV/NO « AHN 

000214 

i 

CD162 

71* 

c 



CQ0214 


0Q163 

72* 



XM=0. 

000221 


00164 

73* 



DO 15 1=1, NY 

000225 

i 

C0167 

74* 



l=3»NV*I 

D0C225 

Is 

50 170 

75* 


15 

XH=XM«PY»L» 

C00232 


00172 

76* 



XM=XM/NY 

0DC237 

\ . 

00173 

77* 



AMW =0. 

CD024 3 


00173 

7 8* 

c 


CHECK FOR DATA FILE INPUT 

000243 

f .', 

00173 

79* 

c 



D00243 


00174 

8 0* 


10 

m WVl.tO. .999991 GO To 100 

00024 5 






cl ^ 

I® 


L 


h 



f 


i 


f 


r . 
1 ., • 
\ 


r 




■■ awy« - » «r- 
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0017b 81* WVO = UVl 

00177 82* 60 TO 150 

00177 83* C 6CNCRA7E WHITE NOISE WITH OIST . MF 

00177 8M* C 

00200 85* 100 in T1NE.EQ.71H0) 60 TO ISO 

00202 86* CALL UNIFlUtlXI 

D0203 67* NPl=NP*l 

0C20H 88* HN = 7ELU H U,WF I *♦ NP I .WF C 3 » ,1 , -NP 1 I 

0C2Q^ 89* C 

Q020H 90* C generate WIND SPEED US1H6 OAILT AnD TEARLT PROFILES 

00205 91* 0W9 r TBLUHTD,PDtH»,P0»**NO» ,1,-NDI 

03206 92* TWV = TBLuHuT, PT ( A » , P7 1 *«*NY» , 1 ,-NT » 

00207 93* MV6 = IDWV ♦ WNI* YMW f XM 

UD21Q 99* T1H0 = T1H£ 

0C210 95* C 

00210 96* C NAX. OBSERVED WIND SPEED 

00211 97* 150 IFf IMPL.LE. l» RETURN 

00213 96* APV = ANAXl (ANV.UVOI 

00219 99* RETURN 

0Q21S 100* END 


000297 
000251 
D0C2S1 
D0S251 
CO 02 5 3 
C00255 
E00261 
0CD269 
CDD269 
C0C269 
0QC303 
CQ032 3 
000393 
D0035C 
000350 
C0Q35D 
00C353 
CD0361 
00C367 
C00972 







7.48 TURBINE/ GENERATOR 


WIND VELOCITY (WV) 



OUTPUT POWER (P2) 


This component- uses a power curve relationship with wind velocity to model 
the wind turbine and generator. It may be used in place of the more detailed 
wi nd turb i ne-transmi ssl on-generator components where a simplified analysis 
Is desirable, or where a nonstandard wind generator model is desired. The 
model may be used for either A.C. or D.C. power generation. 


Basic Eouationi 


P2 = I = 0 


/ WV< 

wv> 


P2 = V-«-i /lOOO wvo < wv< wvi 


POWER 

OUTPUT 

(P2) 



WVO WIND VELOCITY 
(CUTIN) 


WVl 

(CUTOUT) 


FIGURE 7.48: OUTPUT POWER VERSUS WIND VELOCITY 
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Tables 

D££<;irLpiljgn 

Uni ts 

PW 

wind generation power Versus wind velocity^ 

kw 

1 nouts 



Parameter/Port 



V 

Bus vol tags (Rated) 

vol ts 

WO 

Power cut in velocity 

mph 

WVl 

Power cutout velocity 

mph 

wv 

Wind velocity 

mph 

cc 

Capital cost/year 

$ 

CM 

Maintenance cost/year 

$ 

EC 

Control Energy Rate 

$/hr 

OMtP.U.t^ 



VariabI e/Port 



1 

Bus current 

amps 

P 2 

Real power output 

kw 


Statistics 




Ml 

Maximum current 

amps 

MP0 

Maximum power 

kw 

SP 

Total 

output energy 

kwh 

C0 

Tota 1 

operating costs 

$ 


1 

Output power including mechanical and electrical efficiencies 
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■Calculation Sequence 



1) Initialize statistics 


2 ) Compute P2 and I 


P2 


PW(WV) 

0 


WVO < WV < WVl 
otherwl se 


I = P2^1CX>0/V 


3) Compute Statistics and Costs 
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SUBROUTINt UP ENTRY POINT 000153 



STORAGE USED COOEtll 000232; DATACOl 000024; BLANK C0HH0N(2I 000000 
COMMON BLOCKS 

0003 CIHPL 000001 

0004 COST 000003 

0005 CTIME OOODOl 

0006 CSIMUL QOOOlO 



EXTERNAL REFERENCES tBLOCK, NAME I 

0007 TBLUl 
0010 NERR3* 


STORAGE ASSIGNMENT IBLOCK, TYPE* RELATIVE LOCATION, NAMEl 

0001 OOC046 lOL 0001 000064 20L 0004 R 000000 CC 0004 R 000001 CM 0C04 R 000002 COP 

0006 OCOOOO Dun 0003 X OOOOOO IHPL 0000 000006 1NJP5 0000 1 000000 N 0007 R OOCQOQ TBLUl 

0005 R CQCOOO TIME 0006 R 000006 TINC 0006 R 000007 TNAX 0000 R OOOOOl TMAXl 



OOlDO 

1* 

CUP 



coocco 


aoioi 

2* 


SUBROUTINE UP 1 PU,BI,POf AHI,AMP,SP,C0.V0,UVC,UV1,UV,CCI,CHX,ECI 


cooooc 


DOlOl 

3* 

c 



cooooo 


00101 

4# 

c 

PURPOSE MODEL THE WIND TURBINE AND GENERATOR USING A POUER CURVE 


CD 0000 


DOlQl 

5* 

c 



occcoo 


GOlOl 

6* 

c 

URITTEN BY A.U. UARREN VERSION 1, MARCH 3 

1977 

OOGOOO 


ODIOI 

7* 

c 



COCPOO 


COICI 

e* 

c 

CALL SEQUENCE 


COOOQC 


OOICI 

9# 

c 

TABLES 


OOCOOO 


30101 

10* 

c 

PU > UIND GENERATION POUER IN KU VERSUS WIND VELOCITY IN 

MPH 

OOOOOO 


30101 

11* 

c 



OOOOOO 


00101 

12* 

c 

OUTPUTS 


OOOOOO 


DOlOl 

1 :* 

c 

BI - OUTPUT BUS CURRENT, AMPS 


OOOOOO 


00101 

1 4* 

c 

PO - POWER OUTPUT, Kw 


OOOOOO 

to 

CDlOl 

15* 

c 

AMI - MAX. observed CURRENT, AMPS 


rOGQQD 

o 

c/3 

aoiQi 

16>f 

c 

AMP - MAX. OBSERVED POWER, KU 


CODOOQ 

COlOl 

17* 

c 

SP - TOTAL OUTPUT ENERGY, KWH 


CODDOO 

o 

OOlCl 

10* 

c 

CO - OPERATING COST, $ 


DCOOOO 


00101 

19* 

c 



OOOOOO 

CO 

o 

00101 

20* 

c 

INPUTS 


cocooa 

1 

ro 

00101 

21* 

c 

VO - RATED PUS VOLTAGE, VOLTS 


CDQCOD 

OClOl 

22* 

c 

UVO - POWER CUTIN VELOCITY, HPH 


ODDDOO 


00101 

2Z* 

c 

UVl - POUER CUTOUT VELOCITY, MPH 


cooooo 


COlOl 

24* 

c 

UV - WIND VELOCITY, HPH 


000000 


UDIOI 

25* 

c 

CCl - CAPITOL COST / YEAR, S 


cooooo 





^ ^ 
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DOIDX 

26* 

c 


CHI - maintenance cost / year, t 

oocooo 

00101. 

27* 

c 


EC - CONTROL ENERGY RATE, »/HR 

000000 

CClOl 

2E* 

c 


CCGOOO 

C01Q3 

29* 



DIMENSION PVtll 

oocooo 

001D4 

3C* 



COMMON / CIMPL / IMPL 

cooooo 

r.oias 

31* 



C0KH0N/C0ST7 CC.CM.COP /CTImE/ TIME /CSlMuL/ CUM(6ltTlNCtTMAX 

CODOCO 

D0105 

32* 

c 



CQcaoo 

C0105 

33* 

c 


POWER OUTPUT CALCULATIONS 

oocooo 

00105 

3*)* 

c 



GCODOG 

30106 

35* 



PO = c. 

00 COCO 

00107 

36* 



iriUV.LT.UVO .OR. WV.GT.UVIl GO TO lO 

ccocci 

00111 

3 7* 



N r Pul2» 

CD0017 

00112 

38* 



PO = TBLUltWV,PWI41 ,PWI4*NI,l ,-N> 

C00026 

00113 

39* 


10 

B1 = P0*1000/V0 

CD0D46 

00113 

93* 

c 


STATISTICS 

000046 

00113 

«U* 

c 



CCCD46 

ODUM 

92* 



TFtIMPL.GT.Ol 60 TO 20 

OOCOSl 

00116 

43* 



C0= 0. 

C00CS4 

00117 

44* 



AMI = 0. 

C0CD5S 

00120 

45* 



AMP = 0. 

D00C56 

C0121 

46* 



SP : 0. 

000057 

00122 

47* 



TMAXlrlMAX*. 99999 

0QC060 

00123 

4B« 


20 

irciMPL.LE.ll RETURN 

C0C064 

00125 

49* 



AMI = AMAXl CAHI ,BI 1 

C00C72 

C0126 

50* 



AMP = AMAXl (AMP,POi 

CCCIOC 

CQ127 

51* 



SP = SP ♦ P0*.5*T1MC 

0CC106 

00130 

52* 



CO- CO * EC*.5*TINC 

000113 

00130 

53* 

c 


COST SUMMATION 

0001 13 

□ 01 31 

54* 



IFI TlME.Ll.TMAXn RETURN 

000120 

00133 

55* 



CC = CC ♦ CCI 

000127 

0013H 

56* 



CM = CM • CM! 

000132 

00135 

57* 



COPr COP ♦ CO 

C0013S 

00136 

se* 



RETURN 

C0C140 

00137 

5 9* 



END 

000231 


T» 
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OP POOR QUALOTi 


7.49 WIND TURBINE 




WIND VELOCITY (WVK 
ROTOR SPEED {RS)“-^ 


This componeivt mociols His wind turblns In terms of physical proporHos such 
as bUide radius, power cooff Iclont-# and design Hp speed ratio, ^ The step-up 
gear ratio Is computed based on design rotor speed. 



Output power Is given by 
Pit s 

where: 

CP « effective power ooettlclent (tabular with WV) 
A - TT-iHBR ) 

C a 1.4007 (mph to ft/soc» conversion) 
k a 1*3558 K IQ ' (ft- lb to kw-sec> conversion) 



^ N>\SA CR 134937 ''Design Study of Wind Turbines 50kw to BOQO kw - For 
Electric UtM Ity Appl Ic.atlons"# Kaman Aerospace Corporation/ February 
1976. 
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Ing.uts 

Para me ter /Port 

Dgs.grjgti.on 

IMls 

wv 

wind speed 

mph 

VO 

Mean wind speed (yearly) 

niph 

VR 

Rated wind speed (default « 1.35 x VO) 

mph 

RS 

Rotor speed 

rpm 

RSG 

Generator shaft speed (desl gn) tdefaul t - 1800) 

rpm 

BR 

Blade radius 

ft 

EC 

Cost to operate controls 

$/h 

AD 

Air density (default “ 0.0023) 

slugs/ ft^ 

LAM-^ 

Design tip speed ratio (default “9.4) 

- 

CPM^ 

CP 

Maxlmutn power coefficient at VO (default - 0.4) 
Effective power coefficient (default table 
versus VO/WV) 


cc 

Capital cost/ year 


CM 

Outputs 

Varlable/Port 

Maintenance cost/ year 

s 

P 2 

Output mechanical power 

kw 

TO 

Mechanical torque 

ft- lb 

CO 

Total operating cost 

$ 

GR 

Step-up gear ratio 

- 

RAP 

Rated output power 

kw 

§.tatJ.s.U,£S 

MT 

Maximum torque 

ft-lb 

MP0 

Maximum power 

kw 

SP 

Total energy delivered 

kwh 


^ LAM may bi& computed using the design equation: 

lAM ?= SQRT(8/ sol idl ty constant design lift coeff Ictent) ) 
o 

If default CP table not used then set CPM « CP Crated wind speed) 
BCS 40180-2 
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Q a K g.u.LaLtlQn .Sagy-ang^ 

1) First pass - Conputo Gear Ratio and Rated Power 

RS = (LAMifVCH^C/BRh'HSO/aTn 
GR = RSG/RS 

RAP - .5^'lCPltWWKVR-StC)^ 
where 

CPI /CPM-55F(VO/VR) If CP default Used 
\CPM otherwise 

2) Cofipute power coefficient CP 

If W - 0 set P2=T0=O and go to 4) 

If CP default used, then 
CP = CPM^if (V0/WV) 
where F Is shown In Figure 7-49 

5) Power and torque 
A = Tf-imR^ 

P = . S^CP^^-ADi'^A^'M WV-5fC ) ^ ( C s= 1 . 4667 ) 

TO = P/tRS^t27T/60) 

P2 = P5it< Ik = 1.3558 X lO"^) 

4) Compute Statistics and Costs 
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BCS 40180-2 


subroutine ut 


ENTRY POINT 00027R 


Ki 


ST0RA6E USED COOEfll COOB13; DATAIO) 000070; BLANK C0NH0NC2I 000000 

COHHON BLOCKS 

0003 CIPPL 000001 
OOCB CTIkE OOOCOl 

0005 CSIHUL OCOOlO 

0006 COST C00003 


EXTERNAL REFERENCES IBLOCK* NAME I 


II 

Ci *!>• 


0007 TELUl 
0010 NERR3S 


ST0RA6E ASST6NNCNT (BLOCK. TYRE. RELATIVE LOCATION. NANEI 


0001 


000122 

lOOL 

0001 


000211 

200l 

OOOQ 

R 

00003B 

A 

0006 

R 

000000 

CCI 

0CC6 

R 

COOOCl 

CMl 

0006 

R 

CC0C02 

CO I 

0000 

R 

000033 

CPI 

0000 

R 

000026 

Cl 

0000 

R 

000027 

C2 

0005 


000000 

OUN 

0000 

R 

CCOCOO 

r 

0003 

I 

000000 

impl 

0 000 


000051 

INiJPS 

0000 

R 

000035 

P 

0000 

R 

000030 

PI 

0007 

R 

OOCOOO 

TPLUl 

OOOA 

R 

no 00 00 

TIME 

0005 

R 

000006 

TiNC 

0000 

R 

0OCO32 

T1NC2 

0005 

R 

OOCOOT 

TMAX 


0000 R E00C31 TNAXl 


00100 

!♦ 

CUTl 




ccoooc 

00101 

2* 


SUBROUTINE UT 

(P2f T0.CO.6R.RAP.HT.MP0.SP.UV.VO.VR.RS. 

RS6.BR. EC. 

cooooa 

00101 

3« 


1 

AD,LAM«CPM« CPtCC.CMI 



CCODOO 

DOlOl 

n* 

C 





coccoo 

00101 

5* 

C 

PURPOSE MODEL WIND TURBINE POWER OUTPUT 



CODCOO 

COlOl 

6* 

c 





OOOOOQ 

OClOl 

7* 

c 

METHOD COMPUTE POWER COEFFICIENT AND ROTOR SPEED 

FROM PHYSICAL 

CO coo c 

COlOl 

e* 

c 

DESIGN PARAMETERS. RATED POWER COEFF. IS 

3/4 

OF CPH. 

COCCQD 

00101 


c 





COCDOO 

uOlOl 

10* 

c 

WRITTEN BY A. W 

. WARREN VERSION 

z. 

APRIL 6 1977 

COCDOO 

00101 

11* 

c 





ODOGOC 

COlOl 

12* 

c 

CALL 5E0UENCE 


— 

— 

cooooc 

DOlOl 

13* 

c 

OUTPUTS 




000000 

toioi 

14* 

c 

P2 

- OUTPUT MECHANICAL POWER. KW 



cocooo 

CiClOl 

15* 

c 

TO 

- OUTPUT MECHANICAL TORQUE. FT-LB 



OODCOO 

CCIQI 

16* 

c 

CO 

- OPERATING COST SUM, S 



COOCGO 

GClOl 

17* 

c 

CR 

- TURBINE/GENERATOR GEAR RATIO 



DOCCDO 

CClOl 

18 * 

c 

RAP 

- RATED OUTPUT POWER, KW 



cccooo 

OClDl 

19* 

c 

MI 

- MAXIMUM TORQUE STATISTIC, FT-LB 



COCGQO 

GO 101 

2 J* 

c 

MPO 

- MAXIMUM POWER STATISTIC, KU 



OCGOOO 

00101 

21* 

c 

SP 

- TOTAL OUTPUT ENERGY DELIVERED. KWH 



COODOC 

DOlOl 

22* 

c 





OOOCOC 

GOlQl 

23* 

c 

INPUTS 




COOODO 



03 

O 

t/1 


-P>. 


o 

aoioi 

24* 

C 

WV - WIND SPEfD MPH 

COOCOO 

CO 

COJOI 

25* 

c 

VO - MEAN MIND SPEED IVt*RLYI» NPM 

000000 

0 

1 

CO 101 

26* 

c 

VR - RATED WIND SPEED, NPK 

oocooo 

ro 

00101 

27* 

c 

RS. - ROTOR SPEED, RPH 

COOOOQ 


COlOl 

28* 

c 

RSS - generator SHAFT SPEED, RPH 

cocooo 


COlOl 

29* 

c 

PR - BLADE RADIUS, FT 

COODOC 


uOlOl 

30* 

c 

EC ~ CONTROL ENERGY RATE, S/HR 

cooooo 


CDlOl 

31* 

c 

AO > AIR DENSITY, SLUGs/FT**3 

OOCOOQ 


OQIGI 

32* 

c 

LAH - DESIGN TIP SPEED RATIO 

000000 


00101 

3 2* 

c 

CPH - HAXlNUH POWER COEFFICIENT AT WO 

cocooo 


00 101 

34* 

c 

CP - EFFECTIVE POWER COEFFICIENT AT WV 

000030 


00101 

35* 

c 

CC - CAPITAL COST PER YEAR 

DOCOOO 


00101 

36* 

c 

CH - maintenance cost per year 

cooooo 


COlOl 

37* 

c 


cocooo 


001C3 

38* 


CCHHON /CIHPL/IHPL /CTIHE/ TIME /CSIMOL/ CUM C61 ,TINC, THAR 

cooooo 


00104 

39* 


COMMON /COST/ CC1,CMI,C01 

cooooo 


C0105 

40* 


REAL MT,MPO,LAH 

cooooc 


C.0136 

41* 


DIMENSION F(22l 

cooooo 


C0107 

42* 


data F/ ,24 , *4 f,6, *68, ,8,1,, 1,2, 1,31 ,1,4 ,1 ,5, I,T4,0,, ,31,, 6B , , B , 

OOCOOC 


C0107 

4 3* 


1 .92,1.,. 92,. 8,. 6 8,. 3,0. /,C1 ,C2,PI/1 ,46 67, .001 35S8 ,3 .14159 

COOCOO 


□ 0107 

4 4* 

c 


COOOOO 


r-C107 

45* 

c 

initialization 

cooooo 


PC 107 

46* 

c 


COOOOC 


00114 

47* 


lFllHPt.GT.6l GO TO 100 

cooooc 


D0116 

48* 


1MAX1 : TMAX* .99999 

00CCQ2 


00117 

4 9* 


TINC2 = .5* TINC 

C00005 


C0117 

50* 

c 


003005 


CQ120 

51* 


in Vn .EO. .99999 1 VR = 1.35* VO 

COCOIO 


C0122 

52* 


IFIRSG .EO. .999991 RSG= 1800. 

000016 


00124 

52* 


lEf AO .EQ. .999991 AD r .0023 

000026 


00126 

54* 


IFILAM ,E0, .999991 LAM= 9.4 

00C033 


00130 

55* 


IFICPM .CQ. .999991 CPMr 0.4 

C0004Q 


OC130 

56* 

c 


COC040 


C0132 

5 7* 


RS r Cl*LAM*V0/BR*(3a./Pll 

000045 


00133 

58* 


GR 7 RSG /RS 

OOkCSS 


0C134 

5 9* 


CPlr CPH 

000060 


C0135 

60* 


IFICP.es. .999991 CPl= CPM*TBLU1 1 VO/VR ,FI 1 1 , F 112 1 ,1 ,-11 1 

C00062 


00137 

61* 


RAP= .S*CP1*aO*PI*BR«BR*(VR*C1I**3*C2 

000101 


C0140 

62* 


CO = 0.0 

coons 


00141 

63* 


SP = 0.0 

000116 


00142 

64* 


HPO= 0.0 

000117 


CQ143 

65* 


Ml = 0.0 

C0C12C 


OG141 

66* 

c 


000120 


C0143 

67* 

c 

POWER COEFFICIENT CALCULATION 

000120 


C0143 

68* 

c 


000120 


00144 

69* 


IPO P2 : 0.0 

000122 


00145 

7Ci* 


TO = 0.0 

C00122 


00146 

71* 


IFI WV.EO. p.l GO TO 200 

000123 


CO 150 

72* 


CPI - CP 

000125 


130 1 5 1 

73* 


in CPI.EO. .999991 CPI = CPN*TBLUl(VO/UV,Ffll,Ff 121,1,-lH 

000127 


00153 

74* 


inCPl.EO. 0.1 GO TO 200 

COGISI 

\J4 

00153 

75* 

c 


0001 51 

0\ 

{j4 

r.Q153 

76* 

c 

OUTPUT POWER and TORQUE 

C0C151 


C0153 

77* 

c 


000151 


GOISS 

78* 


A = PT*BR**2 

C0C153 


00156 

79* 


P = .5*CP1*A0*A*<UV*C1 1**3 

000157 


00157 

80* 


IFIWV.GT.VRiP^ RAP/C2 

DD017D 
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00161 

ai* 


TO-P/fRS*PI/30. > 

0C162 

82* 


P2 = P*C2 

00X62 

83* 

C 


00162 

84* 

C 

statistics 

0C162 

65* 

C 


00163 

86* 

200 

IFIlHPL.LE.il RETURN 

00163 

87* 

C 


00165 

88* 


CO = CO ■» EC*TINC2 

CQ166 

89* 


HT = AMfcXU HT.TO) 

0Q167 

90* 


HPO= AHAXI(HP0,P2I 

C017D 

91 * 


5P = SP ♦ P2-.T1NC2 

roi70 

92* 

c 


GDI 71 

93* 


irtTlHE.LT.THAXllRETURN 

00173 

94* 


CCl - CCl ♦ CC 

00174 

95* 


CHI = CHX CH 

00175 

96* 


COI r COl ♦ CO 

00175 

97* 

c 


C0176 

96* 


RtTURN 

00177 

99* 


END 



C00I77 
C0020S 
D00205 
Q0020S 
C00205 
C00211 
COC211 
CCC217 
000223 
OOU231 
0CC237 
C00237 
0002*1 3 
G002S2 
C002SS 
CDC26C 
CC0260 
000263 
C00412 



8.0 EXAMPLES 


This section gives five simple example simulations using the SIM^ST program. 
These examples exercise ail physical components of the SIM^ST library and 
many of the model features such as Fortran code insertion and the file read 
capability. Each example contains the input data for model generation and 
analysis, selected printer output generated by the programs and a discussion 
of the results obtained. It is recommended that a user work through and under- 
stand the model connections for these examples before attempting to build 
more complex models such as that of Figure 1-7. 

8.1 WIND TURBINE AND FILE READ MODEL 

Figure 8.1-1 shows a simplified schematic of the wind turbine and file read 
model. In this example a wind turbine Is used' to feed power directly to a 
load. Wind and load time histories are read from a mass storage file and then 
used to drive the simulation, A histogram for power output is also included. 
Figure 8,1-2 shows the input data to build the model and print out some of 
the load file data. The order of the component definitions is such that Infor- 
mation passes down the list, i.e, no component is defined before components 
in the INPUTS list. This assures that the component subroutines In the Fortran 
model win be called In the right order. The first Fortran statement is insert- 
ed in the model prior to the Fortran which sets up the iteration loop, while 
the second set of Fortran statements is within the loop and writes out the 
load file data from array TEMP the first pass through the model . Figure 8.1-3 
shows the model schematic generated. In addition to showing the component 
connections, the names of the input connections are printed out. Notice that 
information passes not only from Wr to GR but also vice-versa. The Input RSIGR 
to WT is a feedback variable and so Is the input RS GE to GR. It is the pres- 
ence of the feedback variables which require several iterations to attain 
steady state. 
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MODEL DESCRIPTION 

TAPE READ TEST 

FORTRAN 

STATEMENTS 

COMMON 

/DATARD/ 

TEMP (448) 

L0CATI0N=15 

TI 


L0CATI0N=3 

TAW 

INPUTS=TI 

L0CATI0N=11 

W) 

1 NPUTS-TI , TAW ( VAR= W ) 

LOCAT10N=31 

wr 

INPUTS=W) 

L0CAT|0N=35 

GR 

iNPUTs=wr 

L0CAT|0N=51 

HG 

INPUTS=WT(P =FIN) 

L0CATI0N=39 

GE 

1 NPUTS=GR 

L0CATI0N= 7 

TAL 

INPUTS=TI 

L0CATI0N=19 

LO 

1 NPUTS=GE, T 1 , TAL ( VAR=L0) 


FORTRAN STATEMENTS 
IF( IMPL.GT.O) GO TO 2 


V/^ITE (6,100) (TEMP( I) , 1=1,448) 
100 FORMAT (IH ,12F10.3) 

2 CONTINUE 
END OF MODEL 

LIST STANDARD COMPONENTS 
PRINT 


FIGURE 8.1-2 INPUT DATA FOR FILE READ MODEL 

The input data for several simulations using this model is shown in Figure 

8.1- 4. The component parameter values are first specified, those inputs not 
specified taking default values. A number of tables are then specified. The 
W> and LO tables are not really needed here. The wind and load file data 
was originally generated from an earlier run using these tables. Following 
the tables are the printer plot input commands, and the simulation values 
and print commands for a one week run. The parameter values for a second 
simulation which reads to the end of the file are then given. The last simu- 
lation attempts to read past the end of file. 

Some of the output for the first simulation are shown in Figures 8.1-5 to 

8.1- 8. Figure 8.1-5 shows the output resu I ti ng from the FORTRAN STATEMENTS 
code. This data is formatted to output the time of the initial load value 
(0,0), the data increment step (0.25), and 446 load values at successive 
time increments. Figure 8,1-6 shows the power output histogram from the wind 
turbine. Almost 40% of the time the turbine reaches rated power (800 kw) . 
Figure 8,1-7 shows a crossplot of wind turbine output versus wind velocity. 
The cutin velocity is about 12 mph and rated power is attained at about 28 
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ORIGINAL PAGE 
OF, POOR QUALITY 


ORIGINAL PAGE lb 
OE POOR QUALITY 


ITLE= TfiPE RERD TEST 
PRRRMETER UflLUES 

"•‘TCLES=£ . 0 1 j 70 T I -0 j FUPHG^ 1 000 ? FLuHG=50 j NSTTRW=0 j I TFTRW=1 
• 0 RT =£ 1 j ER RT- S0 s EC WT= i j C PMl'JT = .41? CC WT = 1 6000 ? CM WT =£000 
RPSGE=.L'1? LU CR=l000?iJM UR=£ 00 ? hsTTRL=0? ITFTRL=£ 

s>PGE=??0?RSYGE=lS00?riR GE=0.£?£R GE=.005?UO GE=400?CC GE=1006'?CM GE=£00 
LJj=. 00574? CT LO=4?MM LO=Ci? STHL0=6? UE LO=.0£3 
tRELEjP't WH=13 

. ? 4 . S3? y . 6 r' ? Is. ? 17. So ? £ 1 . 67 ? £6 . ? 30 . 33 ? 34 . 67 ? 39 . ? 43 . 33 ? 4 f' , 67 ? 5£ . 

P 5' ? 6 ( ? 6y ? 65> ? 6 1 ? 5 6‘ ? 51 ? 49 ? ? 5£ ? 56 ? 6 1 ? 65 

TRBLE?Pn l-jri=7 

0 ? 4 ? y ? 1 £ ? 1 6 ? £0 ? £4 
0 ? 0 ? 0 ? 6 ? 6 ? 6 =? 0 
TRBLE?riF 14D=16 

01 ? £• ? 6 ? 9 ? 1 £ ? 15? 1 !y ? £ 1 ? £4 ? £7 ? 301 ? 0'0' ? 3'6 ? C'9 ? 4"£ ? 45 

5, 44, i50i, 300, 480? 51£? 440? 376?307? £7‘0i? 148? 76? 4Ei? ££? 9? 3 
TABLE? PLUUR =7 
6? 100? £00? 300? 400? 500? 600 
‘ ? 4 ? y ? 1 y ? 3£ ? 501 ? 7£ 
rflELE?PIi 1-0= 

0t? 1 . 5? 3? 4. 5? 6? f . 5? 9? 101. 5? l£ 
l3.5? 15? l6.5? ly? 1 9 . 5? £l ? ££. 5? £4 
45:0 j 3t’0i ? 37£? 3'30i? 4501? 660? 8l0!? 79'3? 8014 
690? 7 08? 699? 78£? 750? 70S? 570? 456 
> RELE ? PM LL!=7 
1 ? £ ? 3 ’ 4 ? 5 ? 6 ? 7 
1 ? i 1 . ? ? . 9 ? . 9 ? . 6 ? . -5 
TABLE? P‘t L,0=6 
0’ i0i£0?30?40?5£ 

'r 8 ^ ]'M’ ic0i? 1 I'' 4? iy4?££b 
-■FlhTLR PLOTS? niSPLRYl 
;Rri?us?Tirc 
6;-•^5T?US?^^.£RD 
GR?L'S ?!-'£. wT 
u:£LO?US? TIME 
PC LD? US? TIME 
EISPLRY£^P£ GE?US?7TME 

£5? TMfiR=16S. ? PRRTE=£4? PRINT C0NTR0L=3? INT N0DE=3? OUTRRTE=£ 
-.•IMULRTE 

i' t-RMETER URLUES?T0 TI=4£00?NSTTRW=3S?NSTTRL=39?TMRK=££0 
'“IMULRTE 

'■9RRMETER URLUES? NSTTRL=40? 


FIGURE 8.1-4 INPUT DATA FOR ANALYSIS PROGRAM 


BCS 40180-2 


369 


mph. The load-time profile for the simulation Is shown In Figure 8.1-8, Dnily 
peaks and troughs are clearly Indicated. The lower levels of the last two 
days reflect week-end load modeling. 
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FIGURE 8.1-5 TAPE READ FORMATTED LOAD DATA 
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FIGURE 8.1-6 WIND TURBINE POWER HISTOGRAM 
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8.2 BATTERY STORAGE JWODEL 


A simplified schematic of the battery storage model is shown In Figure 8,2-1, 

In this model, wind power supplemented by a utility generation source is sup- 
plied to a power divider, which delivers power to the load as a first prior- 
ity, and battery storage as second priority. Similarly, if the load cannot 
be met from the wind or storage, then the utility is requested to supply peak- 
ing power to meet the load. This model exercises the logic components includ- 
ing the priority interrupt. 

Figure 8.2-2 shows the model generation input data for the model. The com- 
ponents are generally defined In the order Tf power flow shown In Figure 8.2-1. 
Ordering the component definition in this way is recommended to avoid conver- 
gence problems In the iteration loop. Thus, it would be somewhat better for 
consistency to define UT after WP rather than after LO in the model. All three 
types of model connections are illustrated in this example. For example, WP 
has the general input connection WD, MAB has the specific input connection 
WP <P,2 = FIN), and PD has the port to port connection PA (1,1). The port 
connections are especially useful for connecting up the multiport logic com- 
ponents PA and PD. The connection PA (1,1), for example, connects an input 
request of PD to PA and a power and maximum power input of PA to PD, It may 
be observed that the utility is connected up to the surplus port of PD. Thus 
the baseload power sent to iWAB in effect is reduced whenever the load and 
battery cannot absorb all the power generated. The last component defined 
is the cost monitor CM, which receives cost input data from other components 
through a common block rather than by model connections. Figure 8.2-3 shows 
the model schematic generated by the program. Most of the connection Inputs 
are shown but occasionally a model connection will be overprinted. For exam- 
ple, the input REIPA to PD is not shown in 8.2-3. In cases like this it is 
necessary to check the Fortran model (E()MO) in order to verify the model 
connections. 
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MODEL DESCRIPTION 

BATTERY TEST CASE 

L0CAT10N=74 

Tl 


L0CATI0N=61 

\M) 

INPUTS-TI 

L0CATI0N=21 

WP 

INPUTS=WD 

L0CATI0N=42 

MAB 

INPUTS=WP(P,2=FIN) ,UT(P,1=C2) 

L0CATI0N=33 

PO 

lNPUTS=AAAB(FO=P) ,MAB(F0=MP) ,PA(1,1 ) ,PI B 12,2) 
BA(RE*RE,2) 

L0CATI0N=15 

RE 

INPUTS=PD (2,1) 

L0CATI0N=17 

BA 

1 NPUTS=RE, PA ( RE, 2=RE ) 

L0CATI0N=45 

PIB 

INPUTS=BA 

L0CAT10N=19 

IV 

INPUTS=BA 

L0CATI0N=69 

PA 

INPUTS=1V(2,2) ,L0(l,0IPlBt4,2l ,UT(2,3) 

L0CATI0N=76 

LO 

1NPUTS=TI 

L0CATI0N=62 

UT 

INPUTS=PD(SP=P,0) 

L0CATI0N=1 

CM 



END OF MODEL 

LIST STANDARD COMPONENTS 
PRINT 

FIGURE 8.2-2 BATTERY MODEL INPUT DATA 

The input data for two simulations is shown in Figure 8,2-4. In the first 
simulation the battery Is nearly full at time = 0 and the load is chosen 
larger on the average than the wind and utility power supplied. In the sec- 
ond simulation the reverse is true, i.e. the load is less than that supplied 
by the wind system, and the battery storage is fairly low. Figures 8,2-5 
to 8.2-8 show results from the first simulation. The cost monitor output 
is shown in Figure 8.2-5. The energy cost of the wind system is low because 
the wind profile delivers high energy winds during most of the simulation. 

The average wind velocity in Figure 8.2-6 Is about 22 mph. Figure 8.2-7 shows 
the wind power output supplied directly to the load. The median power out- 
put is seen to exceed 450 kw and occasionally output reaches 800 kw or rated 
power. Figure 8.2-8 shows the usage of battery energy to meet the load dur- 
ing the week, and the Increase in storage capacity during the weekends. Since 
the battery subsystem was limited to 180 kw maximum discharge, the utility 
was frequently called to meet peak load. Thus about 10% of the load was sat- 
isfied by the uti I i ty. 
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8.3 FLYWHEEL STORAGE AAODEL 


Figure 8.ZL-1 shows a simplified schematic of the flywheel storage model. 

This model is very similar to that of 8,2 except that flywheel storage re- 
places battery storage, and a power line loss is included in the model. The 
input data for this model is shown in Figure 8,3-2. Observe that the components 
are defined in the order of information flow shown in 8.3-1. The admittance 
component AD is used to model transmission line power losses. The model sche- 
matic is shown in Figure 8.3-3. 



MODEL DESCRIPTION FLYWHEEL TCST CASE 

L0CATI0N=74 Tl 

LOCAT I 0N=61 WD I NPUTS^T I 

L0CATI0N=21 WP INPUTS=WD 

L0CATI0N=42 MAB INPUTS=WP(P,2=FIN) ,UT(P,1=C2) 

L0CAT10N=33 PD INPUTS=MAB (F0=P,O) ,MAB (FO-W) ,PA( 1,1 ) ,PI B (2,2) 

FL(RE=RE,2) 

L0CATI0N=13 MO INPUTS=PD(2,1) 

L0CATI0N=4 TRI INPUTS=WI0(2,1) ,FL (RS=RS,2) 

LOCAT 10N=6 FL I NPUTS=n? I , PA ( 2, 1 ) 

L0CATI0N=8 TRO INPUTS=FL,GE(RS=RS,2) 

L0CATI0N=19 GE INPUTS=TRO 

L0CATI0N=45 Pi B INPUTS=FL 

L0CATI0N=69 PA I NPUTS=GE ( 2,2) ,LO (RE,1=RE,0) ,PI B (4,2) 

UT(2,3) 

LOCATION=78 AD INPUTS=PA 

LOCATION=76 LO INPUTS=TI,AD 

L0CATI0N=62 UT INPUTS=PD (SP=P,0) 

L0CATI0N=1 CM 

END OF MODEL 

LIST STANDARD COMPONENTS 
PRINT 


FIGURE 8.3-2 FLYWHEEL MODEL INPUT DATA 


The simulation Input data shown in Figure 8.3-4 uses the same wind and load 
data as Example 8.2. However, the storage component is rated at 400 kw with 
one hour storage, simulating a system used for temporary storage and d is- | 

charge during peak power generation and load demand periods, it may be noted [ 

that the transmission power loss table is input for both TRI and TRO. Fig- | 

ures 8.3-5 to 8.3-7 show results from the simulation. Charging power to the i 
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FIGURE 8.3-1: FLYWHEEL STORAGE EXAMPLE 
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FIGURE 8.3-3 '^EYWHEEL /WODEL SCHEMATIC 



flywheel In excess of that needed for the load Is shown in Figure 8.3-5. 

Even with average load demand exceeding wind generation, the flywheel is 
charged at rated power fairly often. The kinetic energy stored by the fly- 
wheel over a two week period Is shown In Figure 8.3-6. During the week energy 
Is frequently withdrawn and storage Is generally not much above the dead- 
band (80 kwh), whereas during the weekend the reverse Is true. Output from 
the cost monitor Is shown In Figure 8.3-7. The capital costs are probably 
low since nominal values were used for component costs. The utility supplied 
nearly 20% of the load In this case, since flywheel storage capacity is quite 
low. 
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TITLEb rtyWHEEL MODEL TEST 

. P4R4METER_VALUE8 . 

VO ADalOO»Cl ADbH,,G 2 ADaS.tCM i0i«8,,8M ADa'aob 
SR SE3,008,C2 FLB3.E-8 

, PR FLa.02,HM FL3j}r2#RF FUb3,5#SR FL*,R»kT FLs2aOOO#KF FLslfJE-S 

ZE FLa, 1 »RAPFLb« 00/EO FL»R0,E1 FL=«00,tDEFL»20,CM FL»800,CC FL«500 
RS MOs1750»RAPMO«1000»MPImC»bI ,E6,CC MQaSOO/CM HQaO, 

. R3lTRIal750,CC T»1 b 500,CM TRIaO/CC ..TRObSOO ,CM T»Oa0, 

RAPSEaloOOrCC GEslOOOrCH GCalO0« 

CR crisis. »LE CMs30. 

83 UT = 20.,.CB..U.Ta.oi6.CP...y.I«,93»CC .y?«LOPO,/CH yTal.000, 

Cl MABsl. 

CyCLESa4.01«T0 TlaO.V WPa400 » WVORPaS. HV 1 MPa60 , DL INESal 00. 

CC "PBiftOOO.CtLJflPBiaoo.PSlPlBaZ, 

EC *^Pa,2 

NC LOt,005»CT .L0a4>MN L0»0 . STDLOab r VE L08.023 

-TABLE. PL0TRI»5#.,4 

0.5.1,1.5.1,72 
O.U00.900.U00. 1300 

-.0. 16,19,18,5.20 

0.10,11,11.5,12 
0,10,10,10.5,11 

0,6, 6, 5, 7.1 0-... - 

TA8LE,PLOTR035,4 
.5,1,1.5,1.72 

_ 0,4 0 0,900. 1 100, L3.00 

0,16,19,10,5,20 
0.10,11.11,5.12 

. 0, 10, 10.10.5.11 

9.6.6.5.7.10 
TABLE,CL0FLb3,3 

_.-lOQO, — 0. lOftfl 

2000,4000.7000 
2.8, 7.4, 15 

.9, 2.5, 5 

2.6, 7.2, 15 

table, CL lFLaJ 

— 2000,4000,7000 ^ 

.8, 2.4, 4 

table, P w RPelO 

— 8,10,1 2,14,16,18,20,21,53.25,30 

25.6.50,1 ,86,5, 137,4,205.1 .292,, 400, 6. 500. 792, 8, 900 
Table, py woaii 

— 0., 4. 33, 9. 67, 13., 17, 33, 2 1,67, 26., 30, 53, 34, 67, 39,, 43, 33, 47, 67. 52, 

65,67,60.65.61,56,51.49,49,52.56,61.65 

table, PO W0=7 

— 0.4,8,12, 16,20.24 — 

10.12.14.16.14.12.10 
TABLE, DF WQaU 

-0,1,2,3,4,5,6,7,8,9,10,1 1,12.13,14,15 

5.44,160,380,490,512,440,376,307,270,148,76,40,22,9,3 
table, PD LDal7 

—0,1,5,3,4,5,6,7.5,9,10,5,12 — 

13.5,15, 16.5, 18,19.5,21,22,5,24 
450,360,372,330,450,660,810,790,804 

— 690,70 9,699,702,750,708,570,450 — 

table, PW L0«7 

1.2, 3, 4, 5.6, 7 

__l,l,.9..9,,9,,6.-.5 

Table, py los6 
0.10,20,30,40,52 

—226,194,180,174,194,226 : — ; 

initial conditions, Kt FLaSOO, 
printer plots, DISPLAY! 

— WV2W0, VS.TIHE- — - 

Pi PD, VS, TIME 
P2 PO, VS, TIME 

— KE . FL, VS, TIME- — — ^ — ..... ... 

013PLAy2 
P2 GE, vs, TIME 

-,.-RE2FL,V3,TIME.- : - — — - 

RE1L0,V3,TIME 

TiNCs, 25, THAXa336,,PRATEa8, PRINT C0VTRdLa3, INT MaOEaS.aUTRATEaa 
SIMULATE . : — 


q rt^tnal page is 
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FIGURE @,3“4 FLYWHEEL SlJ^LATlOH DATA 
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FIGURE 8.3-5 WIND POWER SUPPLIED TO FLYWHEEL STORAGE 
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FIGURE 8.3-6 FLYWHEEL KINETIC ENERGY STORAGE 
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8.4 hydro and thermal STORAGE MODEL 


Figure 8.4—1 shows the basic model schematic for a model with both thermal 
and electrical loads. Wind power Is supplied first to meet the electrical 
load, with excess power going Into hydro and thermal storage. The thermal 
load is driven by an ambient temperature component and electrical load energy 
value Is supplied by a time dependent look-up table. Figure 8.4—2 shows the 
model input data. The components are ordered according to the flow of Infor- 
mation in 8.4—1. Observe that the maximum power input of the power divider 
is connected up to the wind power output P. The model schematic is shown 
in Figure 8.4-3, 


LIST STANDARD COMPONENTS 


MODEL DESCRIPTION 
L0CAT|0N=77 Tl 

L0CATI0N=51 WD 

L0CATI0N=21 W 

L0GATI0N=33 PO 

L0CATI0N=13 NO 

L0CAT10N=15 PU 

L0CATI0N=17 HS 

L0CATI0N=45 PlH 

L0CATI0N=19 HT 

L0CATI0N=40 GE 

L0CATI0N=59 PA 

LOCATION=78 FU 

LOCATION-80 LO 

LOCATION-63 TS 

L0CATI0N=52 PIT 

L0CATI0N=67 TP 

LOCATION=65 T1- 

LOCAT|ON= 1 CM 

END OF MODEL 
PRINT 


HYDRO AND THERMAL TEST CASE 

INPUTS=TI 

INPUTS=M3 

1NPUTS=WP,WP tP=MP) ,PA(1,1^ f PIH(2,2) ,HS (RE-RE, 2) 

INPUTS=TS(2,3) ,PlT(2,3l 

INPUTS=PD(2,1) 

INPUTS=M0 

INPUTS=PU*,PA(RE,2:^RE) 

INPUTS=HS 

INPUTS=HS 

1NPUTS=HT 

INPUTS=GE(2,2) ,L0(1,0) ,PIH(4,2) 

1NPUTS=TI (TD=F|N) 

INPUTS=T1,FU(F0=VE) 

INPUTS=TL 

INPUTS=TS 

INPUTS=^Tl 

INPUTS=TI,TP 


FIGURE 8.4-2 HYDRO AND THERMAL MODEL INPUT DATA 


The input data for a two week simulation with this model is shown In Fig- 
ure 8.4—4, CYCLES ts equal to 6 in this model for sufficient iterations to 
attain steady state In the hydro storage subsystem. The hydro system has 


392 


BCS 40180-2 


VALUE 

OF 

ENERGY 




TIME OF DAY 


FIGURE 8.4-1: HYDRO AND THERMAL STORAGE EXAMPLE 
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HYDRO AND THERMAL TEST CASE 


• CM 

-»• 1 


mnrfrvr*Tn 


-M’2.MO 
E-2M0 
P2 MO 


M ’ 2’'0 ” 
EF20J 
,M P‘J 


KP2HS- 
H2 HS 
M2 HS 


-trrn-frrm — 


P2 PD 


P2 WP 


IPS2PIT 

-I 


RE2TS 


H-t * «(D 

* 51 


RE2HS 


-AA 

IT PS2PIH 


• INTHS 


— PH 
* A5 


HT — 

:>» 19 


I A 

I I RE2PA 

_ II 

I r 

I2I 

-T"l 

I I 
I I 

--T-I 

I I 
= I I 

-I3I 

I I 
I 1 

-I-I 

1 T 
I I 

AI 


19 » 20 

*===r==> 

I 

I 

I 

I 

29 M=2HT 130 


PSAPIH-- I 

V 

MPIPD ..*.**- 

— — PD » 

:=========* PA 

58 * 59 


M = 2GI 
P2 3S 
-*• •EP2SE 
«<====: 


I JY TI 
I 


1 

<======: 

r2 


LO TS 


RE TL 




TA2TP 


I TO Tl 
I 

:=<rr=r=s; 

75 


TD TI 
JY TI 


TD TI 
TI 

77 *: 


-l"R£ltr2 

I 

I 

-61 

7 

I 

VY TI 
PO PA 
MPO^A 
«====== 




'TTGURE 8.4-3” KYDRCT AND ‘ THERMAL MODEL SCHEMATIC 


’A^AMCTER VALUES 

-■ rrrLES-sr.urrTa’Ti^^v— wrrAOQiVvovpr-ritfvtwpseo »DLi^iES=ro(r; — 
;c JP=15D00tCH UO=12DOf PS1?IH=?.. EC VP=,?,CR CM=15»LE CH=30 
^l PU=20QfAS HS = 3600 t1DRHS = B0O0 HSiROQOO.C'l HS = 1000 
-HI- HS=20«,H3f HS?:'« 0 0 000 ,Ll‘ 'HS=30 tF2PD = .5, F3 PD=.5 

GC = 200,R5r3E = 5600 ,SR Gr = .0333.CC GE=1 000,CH 5£ = 120 
'iZ LO = .00<(*:T LDi'tiHN L0 = QtST3LD = R,A'J FU = -1. 

->Sl «>rT-2TvFS'-TS = 10-»VO-TS-110,“0 - rS-lOO,LE ■ TSrSOiHFHTSrlOOOO.- 
DH TS-.01A&5 . T0ETS=2.RS H0=17^0 *R APHO=20G »CC MOsBOOfCH «0=100 
VE TL=.023»\IC TL = RO.,CT TP = 12»MN TP = 0,ST0T==5, 

—• r A> L'f vPv-y»T^o 


J?RIGINAL page Ib 

OP POOR QUALIIY 
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TABLE, Py L3=S 
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TAB Le,TWTT.=4 
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TABLE,=0 T==9 
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FIGURE 8.4-4 HYDRO AND THERMAL SUWULATlON DATA 
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much larger capacity and supplies a bigger load than tbs thermal system in 
this tun. Figures 8,4-S to show results of the simulation. Hydro energy 

storage Is shown in 8.4-5. During the week most of the wind energy goes di- 
rectly to the load except af night. The reservoir builds up to capacity dur- 
ing the week-ends. The cumulative percent load delivered by wind and hydro 
storage Is shown in 8.4-6^ and averages about 91 %. Similarly^ thermal energy 
stored and percent thermal load delivered are shown In 8.4—7 and 8, *1-8, The 
ambient temperature profile for a similar, one week simulation is shown in 
8.4.9. 
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FIGURE 8.4-6 PERCENT CU/,WLAT[VE LOAD DELIVERED 






FIGURE 8.4-7 THER/ML ENERGY STORAGE 
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FIGURE 8.4-8 PERCENT CUMULATIVE THERMAL LOAD DELIVERED 








a. 5 PNEUMATIC STORAGE MODEL 

Figure 8,5-1 shows the simplified schamaflc for the pneumatic storage model, 
For simplicity the motor and generator have been omitted from the pneumatic 
storage subsystem. A burner Is used If needed to heat the exiting air to 
the turbine. The heat exchanger has a phase change medium. Figure 8.5-2 shows 
the Input data for this model, 

MODEL DESCRIPTION PNEUMATIC STORAGE TEST CASE 


LOCATION® 1 

T1 


LOCATION=21 

WD 

INPUTS®T1 

LOCATION®51 

W 

INPUTS®WO 

LOCATION® 5 

TP 

INPUTS®Tl 

L0CAT10N®43 

PD 

INPUTSi^W’^VJP IP®MP) ,PAtl,l) ,Pl (2^2) ,CS(RE«RE,21 

L0GAT1QN®64 

UT 

1NPUTS®PDISP®P) 

LOCATION®15 

CO 

lNPUTS®PDl2A»rlP 

LOCATION®17 

HX 

INPUTS®CO,TP,CS 

LOCATION®47 

cs 

INPUTS«HX,PA(RE^2®RE) 

LOCATION-36 

PI 

INPUTS®CS 

LOCATION®'19 

HY 

INPUTS®CS,HX 

L0CATION®59 

BN 

INPUTS®HY 

LOGATION=aO 

TJ 

1 NPUTS®BN , TP , GS (PR®PS 5 

L0CATI0N®76 

PA 

1NPUTS^TU{2,2) ,L0(i,01 >P1 14,2) ,UTt2,31 

LOGATlON®72 

LO 

1NPUTS®TI 

LOCATION®71 

CM 



END OF MODEL 

LIST standard COMPONENTS 
PRINT 

figure 8.5-2 PNEUMATIC STORAGE MODEL INPUT DATA 

The Input data for a two week simulation Is shown In 8,5-3, In order to keep 
the air entering the storage cavern froifl overheating, a fairly large leakage 
coefficient INU sa Q.oi) Is assumed* Hence the storage cavern loses about 2/3 
of Its heat energy every four days. The load constant NG LO can be adjusted 
to balance wind energy to the load so that weekly air mass flow In and out 
of the cavern Is balanced. The Initial values for the GS and HX states vvere 
chosen on the basis of an earlier one weak simulation. Figures 8,5-4 to 8.5- 
8 show results of this simulation, Figure 8,5-4 shows the average temper- 
ature of the heat exchanger storage medium for the 'coot* cell. The Initial 
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FIGURE 8.5-1: PNEUMATIC STORAGE EXAMPLE 
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TITLE* pneumatic 8T0RA6E TEST CAIEt 
PARAMETER VALUES 

CVCLHS*a,01#T0 TI*0,CT TP»12#MN TPSOf STDTP jiS# DLINE 8* 1 00 
V MP«aoo» WV0NPai8f )mVlMP«60«CC WP«16000»CM MP*1200 # PSIPXpS, » EC NPs,a 
LE C8>i0«HDECS?10000«TEMCSaSS0»NU CSa,010»TM CS»12S#SC HXa.OOl 
Mo COilSOOfll BNaSOO«LE BNaSQ# MDMBNilOOii) 

ST HX«2<I,LE Hxa50,PO HXal50#TMTHX*2SO,TEMHXa350,L HX»8 
MO C8»1500,TIDTU«600»R8 TU«3600,CR CMaiS.LE CM»30»CM C3»a00 
NC LOs»OOa3^CT LO«a»MN L.OiO«STDLOi 6« VE-LOitOZS 
C8 UT«,0i9,MPlUT*l,E8rCP UT».023|CC UT»0,CM UT*0 
TaBLE»PW MP«10 

8^ uuiJL^ta- iJL.*A=;jaLi..43^a4.'3a. 

2S.6«50.t>86.5« 137. 4*205.1.292., 400, 8^ 500* #880. » 980, 
table, PY W0«13 

0., 4. 33, 8. 67, 13., 17.33, 21, 67. 26,. 30, 33, 34, 67, 39,. 43, 33, 47 ,87, 52, 

65,67,68.65.61.56,51.49.49.52,56.61,65 

Table, PD wo «7 

0,4,6.12.16,20, 24 

10,12,14.16.14,12,10 

table, DF WD«16 

0,1,2,3.4.5,6.7.8.9,10.11.12,13,14,15 

5,44.160,360.480,512,440,376,507,270,148,76,40,22,9.3 

TABLE. PD TP«9 

0,3,6,9,12.15.18.21,24 

46,45.48,55.62.62,56.48,46 

table, PY TP»5 

0.13.26.39.52 

40,50,75.65,40 

table, PD L0al7 

0 . 1 , 5 , 3 , 4 , 5 , 6 , 7 . 5 , 9 . 10 . 5,12 ORIGINAL PAGE 1 $ 

13.5, 15, 16,5,18,19,5,21,22,5,24 OF POOR QGALITH 

450,360.372,330,450.660.810.798,804 

690,708.699,702.750,708.570,450 

table. pw LQs7 

1,2. 3. 4. 5. 6. 7 

1.1.,9,,9,,9.,6,,6 

table, PY L0»6 

0,10.20.30.40.52 

226. L94. 190. 174, 194.226 

Initial conditions. E CSbUSO.MS CS«5,E5.EClHXBl300.EC2HXa900 
printer plots. 0I8PLAY1 
M. COiVS.TIME 

T2 CO, vs, TIME s 

T2 KX.VS.TIME 

TSlHX.Va.TIME 

P2 Ur.VS.TIME 

0I8PLAY2 
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FIGURE 8.5-3 PNEUMATIC STORAGE SI MIL ATI ON DATA 
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FIGURE 8.5-4 AVERAGE TEMPERATURE IN HEAT EXCHANGER CELL 2 
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FIGURE 8.5-5 HEAT EXCHANGER OUTLET TEMPERATURE (CHARGING) 
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pneumatic storage test CASE2 
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FIGURE 8.5-6 AIR WASS IN PNEUMATIC STORAGE 
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FIGURE 8.5-7 AIR ^'^ASS TEMPERATURE IN PNEU/yiATIC STORAGE VESSEL 
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FIGURE 8.5-8 HEAT EXCHAJJGER 0JTLET TE//FERAiFJPE {D1 SCHAFGiriG} 


temperature at the beginning of the week is a little too cool since the tem- 
perature rises to about 400*^ during the weekends. Phase change in this med- 
ium is indicated by the constant temperature intervals at 250°. Figure 8.5-5 
shows the air temperature exiting from the heat exchanger into the cavern. 
During the week this temperature Is generally held below 200° but may exceed 
350° during the weekend. Figure 8,5-6 shows the air mass stored in the cavern. 
In this simulation wind power generated exceeded that of the load and thus 
there is a gradual buildup of air mass in the cavern. The temperature of 
the stored ait mass i s shown in Figure 8,5-7, There is about a 10° fluctu- 
ation in temperature each week In this case. The last figure, 8.5-8 shows 
the air temperature exiting from the heat exchanger to the burner. Neglect- 
ing the influence of the initial conditions, the average temperature is about 
550° and thus a burner is probably not required for this system. 
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